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and  (d)  conduct  a review  ot  the  behavior  of  nxi  joints  and  develop  an  improved 
constitutive  law  for  rock  block  interactions.  The  major  objectives'  of  the  study 
were  achieved. 

A numerical  scheme  for  treating  a fully  deformable  block  was.  demonstrated 
to  give  accurate  results.  It  was  shown  that  very  little  error  was  introduced 
by  tire  calculation  of  siding  rock  joints  by  the  various  leroiunj  schemes  used. 
Although  the  new  formulation  is  not  liki ly  to  be  mote  efficient  than  existing 
lagrange,  finite  difference  codes,  it  was  shown  to  have  two  major  advantages; 
namely,  it  is  completely  general  and  can  completely  model  any  arbitrary  jointing 
pattern  and  the  joints  are  modeled  accurately  with  no  interpolation  necessary  at 
interface. 

Other  .joals  were  accomplished.  The  or  ijnial  rigid  block  program  was;  trans- 
lated into  FORTRAN  Code , RUM. 

A new  idea  for  treating  simple  block  detormabi 1 i ty  was  developed.  Kadi 
block  was  jiven  three  decrees  of  freedom  to  deform  internally,  with  general 
constitutive  laws  given  for  the  intact  material.  The  method  differs  fundament- 
ally trom  finite  elements  and  finite  differences  in  that  it  relies  upon  the 
stiffnesses  of  joints  to  link  neighboring  elements  or  zones.  The  new  program, 
SDKM,  is  only  slightly  slower  than  the  rigid  block  program  and  is  useful  in 
cases  where  the  intact  deformation  of  rock  blocks  is  important  but  not  large. 

A modified  version  ot  the  rigid  block  progiam,  RBMC , was  written  which 
allow  blocks  to  crack  and  divide  into  separate  blocks  in  tesjionse  to  the  loads 
acting  on  them.  A simple  cracking  criterion  was  used  which  was  based  on  em- 
pirical point-load  tests  on  irregular  blocks. 

An  extensive  literature  survey  was  made  on  the  properties  and  behavior 
ot  rock  joints,  based  on  these  findings,  a constitutive  law  was  proposed  tor 
rock  joints  and  coded  into  the  subroutine  JOINT. 

Listings  for  all  programs  developed  under  this  study  are  provided  in 
append ices. 
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1.0  The  work  described  in  this  report  is 
fitted  into  the  context  of  the  present 
state-of-the-art  and  the  problems  that 
need  to  be  solved.  A guide  is  given 
for  the  remainder  of  the  report. 


I 1.1  INTRODUCTION 

This  report  describes  work  that  forms  part  of  an  effort  by  the 
Defense  Nuclear  Agency  to  explain  and  predict  the  phenomenon  of  "block 
motion"  that  can  take  place  in  underground  structures  exposed  to  strong 
dynamic  loading.  Large  displacements  across  rock  joints  are  known  to 
have  occurred  during  such  events.  These  displacements  at  once  pose  great 
dangers  to  the  structures,  and  present  difficulties  as  far  as  analysis  is 
concerned.  Standard  calculation  methods  that  treat  the  rock  as  a continuum 
are  clearly  inappropriate,  but  it  is  not  always  easy  to  incorporate 
discontinuities  in  a realistic  way,  and  to  prevent  the  computer  programs 
from  becoming  large  and  unwieldy. 

l.fr  HISTORICAL  PERSPECTIVE 

Lagrangian,  finite-difference  programs  are  widely  used  in  the 
Defense  Community,  and  have  evolved  from  pure  hydrodynamics  codes  by 

utilizing  a non-zero  shear  modulus.  Yield  and  failure  can  be  modelled, 

» 

but  the  formulation  remains  essentially  that  of  a continuum^  Discontinuities 
may  be  incorporated  by  means  of  slide-lines,  a technique  that  was  described 
by  Wilkins  (1969);  however  the  procedure  becomes  difficult  and  expensive 
when  multiple  joint  sets  must  be  represented.  Part  of  the  reason  for  this 
is  that  the  formulation  has  evolved  historically  from  a continuum  approach 
that  has  been  successively  modified  to  treat  greater  and  greater  degrees 


of  discontinuity. 
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Perhaps  it  would  be  better  to  work  the  other  way:  to  introduce 
continuum  behaviour  into  a method  that  is  designed  to  model  only  discontin- 
uities. It  may  turn  out,  of  course,  that  the  two  approaches  will  lead  to 
essentially  the  same  final  formulation,  in  which  case  nothing  would  have 
been  gained.  However  it  was  thought  to  be  worth  a try. 


I 


The  starting  point  was  the  distinct  element  method  (DEM)  that  was 
originally  proposed  in  a restricted  form  by  Cundall  (1971)  and  generalised 
later  on  (Cundall,  1974).  It  was  developed  for  low-stress  rock  situations, 
where  displacements  due  to  joints  far  exceed  those  of  the  intact  rock 
blocks.  The  simplifying  assumption  was  made  that  the  intact  rock  was 
rigid,  and  that  only  the  joints  could  deform.  The  method  works  explicitly 
in  time,  and  permits  large  block  movements  and  rotations.  A novel 
housekeeping  scheme  keeps  track  of  all  blocks  in  an  efficient  manner,  and 
allows  any  block  to  interact  with  any  other  block.  The  notion  of  treating 
blocks  as  rigid  was  also  pursued  by  several  other  workers,  using  the  finite 
element  method  (e.g.  Burman  (1971),  Chappel  (1972,  1974)).  However  these 
formulations  were  restricted  to  small  displacements,  and  used  an  implicit 
solution  method,  which  brings  with  it  a whole  host  of  difficulties  when 
modelling  problems  that  have  strong  geometrical  or  material  non-linearities. 


I 


1 . 3 PRESENT  WORK 


1.4.1  DKFORMAKLK - HU  VK  i’K(XIRAM  - DBLOCK 

As  its  main  topic,  this  report  presents  an  evaluation  ot  a 
general  method  for  modelling  jointed  rock.  In  contrast  to  the  updated 
hydrodynamics  codes  referred  to  above,  the  now  work  regards  the  joints 
and  discontinuities  as  the  most  important  components,  and  throws  the 
burden  ot  approxinvit ion  onto  the  continuum  formulation.  As  blocks 
slide  over  one  another  and  nuke  and  break  contact,  continuum  rones  are 
created,  deleted  and  re- zoned.  The  errors  associated  with  this  process 
ate  evaluated  in  this  report.  To  summarize,  the  two  approaches  may  be 
compared  as  follows: 


Now  deformabl e-block  prog  ram : 


Con t i nuum  Formu 1 at ion 

Joint  Formulation 

• Subject  to  error  due  to 
re- zoning  - triangular 
zones  created,  deleted 
and  modified  due  to 
contact  changes. 



• More  or  less  exact  - the 
force/displacement  law  is 
used  directly  between  grid- 
points; 

• Arbitrary  block  complexity 
is  treated  as  standard. 

Traditional  I.agrangian  code  - o.g.  UK  Mr  t 


Cont i nuum  Formu l at  ion 

Joint  Formula t ion 

• No  significant  errors 
introduced  by  slide-lines. 

J 

• Subject  to  error  due  to 
int orpolat ion  necessary 
on  slide- lines; 

•Only  simple  interaction 
geometry  possible. 

r 


The  dot ormabl e-block  ('toiit  jm,  DBLOCK  developed  hero  is  simply 
i "t est -bod"  code  to  prove  and  demonstrate  the  proposed  formulation.  It 
is  not  intended  t.  bo  used  to  run  complex  problems,  since  the  housekeeping 
logic  used  by  i Tindall  (1974)  lias  not  yet  been  incorporated  in  the  program. 
This  will  be  the  subject  of  a further  contract,  it  the  method  proves 
successful.  The  point  will  be  taken  up  again  in  the  final  chapter. 

K J_.  KIiUP-BUVK  PROGRAM  - RBM 

Since  the  original  program  written  by  Cundall  (19741  was 
partially  written  in  machine  language,  part  of  the  present  contract 
was  concerned  with  translating  the  machine  language  program  into 
Fortran.  The  insulting  program,  RBM,  is  to  be  regarded  as  a "base-line" 
program  that  can  be  used  by  interested  parties  as  a base  on  which  more 
complex  codes  can  be  built.  For  this  reason  the  program  has  been  kept 
deliberately  free  of  embellishments  and  complexities  that  would  tend,  to 
obscure  the  workings  of  the  program. 

1.1.  1 F I MP1.V-PF  FORMA  Bid'  BLOCK  PROGRAM  - FPF.M 

The  general  deformable  block  program  (Section  1.3.1)  is  likely 
to  be  complex  and  possibly  as  expensive  to  run  as  regular  HEMF-type  codes, 
although  it  is  anticipated  that  the  results  for  jointed  media  will  be 
superior.  Such  an  approach  is  clearly  necessary  when  each  rook  block 
deforms  internally  in  a complex  manner . Complex  deformation  ir.:, dies  many 


J 


zones  are  not  desirable  in  an  explicit  scheme  as  each  zone  must  be  treated 
implicitly.  We  appear  to  be  stuck  with  internal  discretization  if  we 
really  need  to  represent  complex  modes  of  intact  deformation. 

There  may  by  an  argument  for  trying  a simpler  approach  for  those 
problems  where  internal  block  deformation  is  of  secondary  importance,  but 
still  has  to  be  accounted  for.  This  line  of  development  has  led  to  program 
SDEM,  which  is  basically  an  enhanced  version  of  the  rigid-block  program,  RBM . 
SDEM  gives  each  block  three  degrees  of  freedom  to  deform  internally,  in 
addition  to  the  three  rigid-body  modes  already  associated  with  each  block 
in  RBM.  The  formulation  is  for  large  strains,  and  can  use  any  form  of 
constitutive  law,  such  as  plasticity. 

The  program  gives  the  user  a good  deal  more  realism  for  intact 
behaviour,  without  too  much  degradation  in  efficiency  compared  to  RBM. 

1.3.4  CRACK  FORMULATION 


Although  it  is  extremely  complex  computationally  to  model  the 
complete  mechanics  of  crack  propagation  accurately  in  rock,  it  was  considered 
worthwhile  to  modify  program  RBM  so  that  any  block  could  split  into  two 
as  a function  of  the  loads  applied  to  it  and  utilize  semi-empirical  laws 
to  determine  when  the  block  would  crack.  There  is  quite  a large  body  of 


- 7 - 

expor  iment  a l ti.it . t tli.it  enables  ct  tide  est  im.it  os  to  bo  made  of  t ho  poi nt -cont act 
loads  tli.it  will  cause  tork  blocks  ot  qivon  sizi's  .uni  shapes  t o oiack.  In 
this  way  t ho  proqtam  would  bo  uivon  added  ro.ilism  without  sacrifioinu 
efficiency  by  too  much.  In  many  situations  it  is  oxpootod  that  t ho  prourossivo 
ntovomi'tit  s in  a lock  mass  .11  o insonsitivo  to  t ho  oxaot  I raotut  t>  loads,  so  Iona 
as  t ho  fractures  do  ooout  . Without  any  possibility  ot  crack inu,  t hi' 
behaviout  can  lu>  most  unt  ea  l i st  i c , with  corners  " lock  inu-up"  oven  thouah 
t ho  ovoi  lap  is  vory  small.  When  blocks  arc  allowed  to  crack,  the  criterion 
tot  ctackina  may  bo  vat  ied  in  paramotor  studios  to  dotormino  what  effect  it 
has  on  overall  bohaviout. 


i 


Chnpt  ot  1 doscribi's  the  modi  t ioat  tons  necessary  to  KHM  in  ordet  to 
allow  crack  i nil  to  occur.  Suaai'st  ions  are  made  concerni  no  the  choice  of 
crack  criterion. 

1 . t.  S JOINT  FORMUlJVrtON 

Whichovct  ot  the  apptoachos  described  above  is  selected  to  model 
teal  situations,  a constitutive  law  is  needed  to  represent  rook  Joints. 

The  formulation  should  be  oenetal  etiouoh  to  accomodat  e the  whole  sped  i urn 
ot  observed  behaviout.  To  this  end,  a literature  survey  has  been  made  ot 
field  and  laboratory  tests  on  jointed  rock.  A summary  ot  the  tindinus  is 
oiveti  in  Chapter  toqether  with  a su. nested  t t amewoi k tot  a constitutive 
law.  A tew  tests  have  been  made  usinu  this  law  in  conjunction  with  proqt am 
nitl.iX’K,  but  many  mote  tests  are  anticipated  when  simulations  ot  real 





events  are  made  in  the  next  phase  ot  the  wot k . 
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.’.l  INTKOtUK'TlON 

Tin-  oi  i o 1 na  1 , oenetal  implement  at  ion  ot  I In1  illstlnol  element 
moth.\l  was  .1  prootam  wi  1 1 I en  ill  maehine  1 anouaoe,  an. I ileseribeil  in  .» 
i t by  I’litiiinll  (I'17-ll.  it  is  assumeii  that  i lit'  i emiei  is  tnmili.u 
witli  tli.it  i epot t , slllee  it  has  been  tollowe.i  almost  exaetly  in  t he 
Kot t i an  vet  sli'n  ot  t ho  pioiium  ilesei  i boil  in  this  see t Ion.  Pew  .iopaitiuou 
tiave  been  nu.il1  ti.'in  tin1  .'ii.itn.il  l.»iii-  even  t lien. ill  many  potential  impi  oveinent 
i-oul.i  be  env  i s.uieii . This  was  in  line  with  the  philosophy  that  the  Port  tan 
pi  .'.pain  shonl.l  be  a "baseline  pio.iiam":  that  is,  a simple,  easlly- 
un.lei  ::l  i'oii  pro.)i  am  to  t .n  m a bas.e  t i om  whleh  othei,  more  tloxiblu  eo.les 
eoul.l  evolve  Seet  ion  . i>  eontains  sevet.il  snooest  ions  toi  Improvements. 

Some  ot  these  have  aliea.iy  been  t neoi  pot  a t e.i  into  the  pio.iiam  blU'M, 
ileset  il'e.l  in  I’hapt  ei  S.  Almost  all  ot  the  Improvements  ait1  built  into 
ailothei  pio.iiam,  UA1.I.,  wliloli  lli.xiels  the  meeh.in  i i1;:  ot  assemblies  ot 
elii'Ulai  .Uses.  This  pio.iiam  is  ilesei  ibe.l  by  iTuiiiall  (l''7tl). 

The  baseline  pio.iiam,  KHM  (.lesei  ibe.l  in  this  seetionl  mo.lels 
assemblies  >>t  aibltiaty,  aii.iulai  bloeks.  Tliet  e is  no  rent  I lotion,  ap.u  t 
t t om  memoi  y limits,  on  the  .leomet  ry , .li  sv'lai'ement  s an.i  lotations  ol  the 
rook  bloeks.  Any  bloek  may  teiieli  any  othei  bloek.  The  t espouse  to  impose.) 
t orees  aiul  eonst  i a i lit  s is  ealeulateil  uni  no  an  explleit  inte. nation  seheme, 
thereby  allowino  lat.ie  .1 1 spl  aeement  s an.l  oeneial  t oree  Mi  sp  l aoemont  laws 


to  be  liaiul  I I'.l  in  a st  ra  iohf  t orwar.l  manner. 
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The  original  program  was  written  in  assembly  language  for  a 
computer  with  an  interactive  graphics  display.  This  note  describes 
an  implementation  ot  the  calculation  section  of  the  program  in  a 
high  level  language;  the  program  was  not  written  for  an  interactive 
display,  but  it  contains  simple  routines  tor  drawing  blocks  on  a 
standard  plotter  (e.g.  Calcomp) . The  approach  taken  in  writing  the 
program  was  that  it  should  be  as  machine- independent  as  possible. 

Consequently  it  is  somewhat  inefficient  in  its  use  of  memory:  for 
example  whole  (32-bit)  words  have  been  used  for  flags,  which  were 
stored  as  single  bits  in  the  original  program. 

The  following  sections  have  some  notes  on  the  Fortran  implementation, 
the  departures  from  the  original  logic,  notes  on  the  use  of  the  program  and 
some  examples  and  validations.  A list  of  input  commands  is  given  in 
Appendix  III,  a subroutine  guide  in  Appendix  IV  and  a program  listing  in 
Appendix  XII. 

2.2  FORTRAN  1 MPLKMKNTATION 

The  original  program  was  written  in  assembly  language  for  a small 
minicomputer  with  no  floating  point  processor.  A Fortran  implementation 
on  that  computer  would  have  been  very  slow  to  run,  and  would  have  allowed 
only  a small  number  of  blocks  to  be  modelled.  In  order  to  make  the  program 
more  portable,  it  has  been  rewritten  in  Fortran,  and  it  should  be  possible 
to  implement  it  on  most  computer  systems  with  little  difficulty. 


The  original  program  was  written  in  three  phases,  the  first  two 
for  describing  the  model,  and  the  third  for  allowing  the  blocks  to  respond 
to  imposed  forces  and  constraints.  This  Fortran  version  is  concerned  with 
the  third  (calculat ion)  phase,  and  the  input  has  deliberately  been  kept 
rudimentary. 

In  order  to  make  the  program  as  machine  independent  as  possible, 
the  following  conventions  have  been  observed: 

(i)  Word  lengths  are  identical  (i.e.  integer  and  real 
variables  are  the  same  size). 

(ii)  Only  four  characters  are  stored  in  a word  for 
alphanumeric  representat ion. 

(iii)  Input  and  output  is  standard  sequential  access,  for 
both  formatted  and  unformatted  files,  and  output 
formats  use  Hollerith  strings. 

The  allocation  of  memory  is  performed  in  a manner  similar  to 
the  original  program,  with  all  the  linked  list  arrays  stored  in  a single 
memory  partition,  the  allocation  of  this  memory  depending  upon  the 
particular  problem  being  analysed.  In  this  way  no  storage  is  wasted. 

A map  of  this  memory  partition  is  shown  in  Figure  .'.1. 
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It  is  very  easy  to  write  an  inefficient  FORTRAN  program, 
especially  when  it  is  essentially  iterative  in  nature.  The  algorithm 


The  data  arrays  for  the  blocks,  the  box  array  and  corner  list, 
and  the  contact  array  and  list  are  shown  in  Figures  2.2,  2.3  and  2.4 
respectively.  As  noted  earlier,  each  member  of  these  arrays  uses  a 
single  storage  location.  Substantial  storage  economies  can  be  effected 
on  installations  allowing  variable  length  words,  but  this  practice  was 
deliberately  avoided  here. 


The  original  program  was  written  for  use  with  a CRT  (cathode 
ray  tube)  display,  and  depended  heavily  upon  this  for  its  input  and 
output  (I/O).  The  present  program  was  written  specifically  for  a 
system  without  this  capability,  the  primary  purpose  being  to  implement 
the  data  structures  and  physical  algorithms  in  a high  level  language, 
and  to  leave  the  I/O  to  the  user.  In  any  case,  sophisticated  I/O  is 
governed  by  the  machine  being  used,  not  to  mention  the  preferences  of 
the  programmer.  The  present  program  requires  the  user  to  describe  his 
problem  in  card  image  format  (the  data  input  description  is  given  in 
Appendix  III)  and  the  primary  form  of  output  is  the  pen  plot  (a  snapshot 
of  the  problem  at  a given  time).  An  echo  of  the  data  input  stream  is 
produced  on  the  line  printer,  as  well  as  t lie  capability  ot  printing  the 
data  lists  and  other  information. 


employed  in  the  present  program  involves  many  thousands  of  tiniest eps, 
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.mil  the  eomput  ing  time  is  directl  y proj>ort  ional  to  the  number  of  timesteps. 
Arty  savings  in  computer  time  effected  in  tin?  iteration  cycle  would  be 
very  beneficial.  To  this  end,  the  number  of  arguments  in  subroutine 
calls  has  been  kept  to  a minimum.  As  a consequence  of  this  practice,  and 
of  the  petty  restriction  in  ANSI  FORTRAN  that  variables  cannot  be 
equivalenced  to  subroutine  arguments,  the  program  is  a little  less  easy  to 
re.iv)  than  it  might  be.  However,  reading  the  listing  in  conjunction  with 
the  data  structure  diagrams  eliminates  most  of  the  obfuscation. 

•'  • J okparturks  from  oric; i nal  logic 

This  section  describes  the  differences  between  the  logic  of  the 
original  program  and  the  Fortran  version, 

•'•AJ  __nkw  ‘ntriks  TO  LISTS 

New  entries  to  lists  are  appended  rather  than  inserted  at 
the  beginning.  This  was  done  purely  for  convenience,  since  the  variables 
associated  with  the  end  of  the  1 ist  are  available  when  extension  is 
requir ed. 

2.1.2  UP OAT 


Routine  UPDAT  is  no  longer  called  at  regular  intervals,  but  an 
algorithm  has  been  implemented  that  automatically  requests  the  updating  of 


the  contact  lists  when  necessary . At  each  timestep,  the  maximum  magnitude 
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of  all  block  velocities  is  determined  and  integrated  to  give  a fictitious 
increment  in  displacement.  These  displacement  increments  are  summed, 
producing  a maximum  possible  displacement  since  the  last  update.  This 
displacement  is  usually  fictitious.  When  it  exceeds  the  specified  tolerance, 
the  update  routine  is  called.  The  advantage  of  this  algorithm  is  that 
UPDAT  is  called  frequently  at  times  of  rapid  motion,  but  is  seldom  called 
when  the  model  is  approaching  equilibrium. 

2.3.3  EMPTY  LIST 


The  empty  list,  containing  all  unused  contacts  is  initially 
created  to  the  end  of  the  available  memory,  so  that  the  concept  of 
additional  storage,  after  this  list  has  been  exhausted,  is  no  longer  valid. 

2.3.4  FIX  FLAG 


When  a fixed  block  has  been  plotted,  its  "fix  flag"  is  incremented 
by  2 so  it  will  not  be  plotted  again.  This  modification  was  made  because 
of  the  relatively  slow  speed  of  pen  plotting  compared  with  CRT. 

2.3.5  DRIFT  CORRECTION 


Due  to  the  higher  precision  of  the  arithmetic  in  the  Fortran  version, 


the  drift  correction  was  assumed  to  be  unnecessary,  and  was  omitted.  However 


if  a corner  penetrates  more  than  one  unit  into  an  edge,  a warning  message 
is  printed  out.  This  usually  means  that  the  program  is  being  mis-used. 
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.‘.-1  USK  OK  PRtKIRAM 


.4.1  KILLS 


Tho  following  loijic.il  units  are  used  by  the  program: 


Restart  tile 


Plot  tile  (only  used  in  l'DP  11  -lr>  version) 


Input  tile 


Ou  t pu  t t iK> 


The  Restart  tile  is  written  by  the  program  whenevei  it  stops 
normally,  and  is  used  when  the  program  is  started  again  to  restart  from 
the  same  point. 


The  Plot  file  is  written  whenever  a Pl/OT  command  is  given. 


Logical  Unit  S expects  a sequence  of  input  commands;  these  are 
given  in  Appendix  111. 


The  print ei  output  appears  on  Logical  Unit  o.  All  input  command; 


are  echoed  on  output,  so  that  Unit  t>  serves  as  a logging  device 


I'lk'UT  OK  i'OOKPINATKR 

The  piesent  vi'iiiion  ot  RUM  does  not  allow  t ho  usei  to  choose  an 
arbitraty  coordinate  space,  tot  t easons  that  will  lx-  out  1 mt\i  lx-low.  Thin 
means  that  a problem  posod  vn  an  unaccept  abl  e coordinate  system  must  be 
t ran:;  tot  mod  before  using  KBM,  and  the  results  t t aiish'i  tiled  buck  again  attot 
the  tun.  Suitable  transtv tmation  lotn1  could  easily  be  built  into  KBM 
it  lie:;  1 1 ed,  Init  has  not  been  done  so  in  otdet  to  keep  the  program  as  simple 
as  possible. 

both  teN'Xtnu  att.i  o'nt.u't  scutching  ate  !t  iggered  by  blocks 
crossing  inteuet  txnm.lai  10s.  '.'hat  is  t o say,  when  t hi’  mtegel  part  ot 
eithet  the  x-  of  the  y-  coordinate  ot  a block  centroid  changes,  the  routine 
RK.BOX  is  called  tot  that  block.  RK.BOX  determines  whet  he  i the  box  entries 
tot  the  block  ate  correct,  and  it  they  are  not,  it  cieates  anil  deletes 
etltties  as  necessaty.  Ul'PAT,  which  is  also  t ■.  muei  ed  by  an  inteuet 
ix'undaty  bemu  ctossed,  cteates  new  contacts  tt  they  should  exist  but  do 
not.  The  utilization  ot  the  inteuet  putts  ot  the  coordinates  to  initiate 
reboxing  and  u[\latinu  clearly  limits  the  coordinate  tanues  that  can  be 
used,  but  a good  ileal  i't  memot  y is  thereby  s.aved;  otherwise  old  eoordi  nat  ot 
would  have  to  be  stored  in  otdet  that  oumulat  ive  movements  could  be 
ca l cu 1 at  ed . 

The  following  restrictions  apply  to  the  use  ot  KBM: 

i>  The  coordinate  origin  terras  the  lower,  let t -hand  point  ot 
the  problem  space  tK'X  areal. 


T*tr 
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ii)  Block  dimensions  should  bo  in  t ho  order  ot  lo  to  loo 

voouiin.iti'  units.  Dituonsions  outsuio  thoso  limits  o.tn 
bo  usod,  but  t ho  usot  should  know  what  ho  is  doing. 

ni)  Tho  numbor  ot  boxes  should  bo  botwoon  1 and  1/10  ot  tho 
numboi  ot  blocks  in  tho  problem,  with  a minimum  ot , say 
lo. 

Botore  tunning  a problem,  tho  box  area  must  bo  choson.  This  aioa 
should  bo  slightly  larger  than  tho  groatost  anticipated  area  that  tho  system 
ot  blocks  will  require.  At  present,  tho  program  automat ical ly  tixes  a 
block  it  it  trios  to  move  outside  tho  box  area.  A suitable  numbor  ot  boxes 
t o cover  tho  box  area  should  then  bo  chosen,  boat ing  in  mind  tho  cons iderat ions 
given  above . Blocks  may  then  bo  created. 


Although  tho  choice  ot  coordinates  should  have  no  ottoct  on  tho 
physics,  it  will  influence  tho  efficiency  ot  tho  program,  which  will  depend 
on  tho  sizes  ot  tho  blocks  expressed  as  integers.  The  following  et toots 
may  be  noted: 


barge  numerical  values  ot  block  dimensions  will  jive: 


1.  minimum  memory  requirements,  since  contact  space  will  only 
bo  allocated  for  particles  that  are  very  close; 
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2.  increased  computation  time,  since  reboxing  and  updating 
will  be  done  very  frequently. 

Small  numerical  values  of  block  dimensions  will  give: 

1.  high  memory  requirements,  since  contact  space  will  be 
retained  when  blocks  separate  to  large  distances; 

2.  low  computation  time,  since  reboxing  and  updating  will 
be  triggered  infrequently. 

For  a problem  that  is  critical  in  time  or  storage,  experiments 
can  be  made  to  determine  an  optimum  coordinate  range. 

The  number  of  boxes  also  influences  speed  and  storage.  Many 
boxes  will  increase  the  storage  requirements,  but  decrease  search  time; 
few  boxes  will  decrease  storage  requirements,  but  increase  search  time. 

2.4.3  SEQUENCE  OF  OPERATIONS 


The  commands  given  to  the  program  (described  in  Appendix  III) 
are  divided  into  two  sets.  The  first  command  must  be  either  START  or 
RESTART.  If  it  is  RESTART,  the  program  reads  an  existing  restart  file  and 


jumps  to  data  set  number  two.  A START  command,  on  the  other  hand,  must 
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be  followed  by  a specification  of  the  number  of  blocks  in  the  problem, 
the  number  of  boxes  and  their  sizes  and  the  fraction  of  critical  time-step 
to  be  used.  Data  set  two  may  then  be  given  to  the  program. 

The  program  RBM  is  similar  to  the  original  machine  language 
version  in  that  the  set  of  blocks,  once  created,  cannot  be  added  to.  In 
practice  this  means  that  no  further  CREATE  commands  may  be  given  after 
a CYCLE  command  has  been  used.  All  other  commands  in  set  two  may  be 
given  at  any  time. 

2.4.4  PRINTOUT 


Each  input  line  is  echoed  on  output,  followed  in  some  cases 
by  an  informative  or  error  message.  The  CREATE  command  is  followed  by 
the  coordinates  of  the  block  that  have  been  read,  together  with  the 
computed  centroid  coordinates,  the  mass  and  the  moment  of  inertia. 

The  DUMP  command  produces,  initially,  a summary  of  the  program 
pointers  and  other  internal  variables.  On  request,  it  will  follow  this 
with  a list  of  box  entries,  block  data  and  contact  data.  These  printouts 
are  explained  below: 

2.4.4. 1 Box  entries:  These  are  simply  given  as  a list  of  block  corners 


that  map  into  each  box. 


2.4.4. 2 Block  data:  The  headings  are  self-explanatory,  except  perhaps 

for  1 he  following: 


NB 

IF 

NC 

THETA 


2.4.4. 3 Contact  data: 


NBE 

PRE  . 
NPE  . 
NIK'  . 
NBC  . 

LINK  . 

» } • 

FN  1 

FS  ( 
SIN  ^ 
COS  ( ' 

xcr  ^ 

YCP  I ‘ 


2.4.  r)  TIME-STEP 


block  number 
"fix"  flag 
number  of  corners 

this  is  the  angle  that  the  block  has  moved 
through  since  THETA  was  last  set  to  zero. 
THETA  is  sat  to  zero  when  its  magnitude 
exceeds  0.01  radians.  The  actual  angle 
can  be  deduced  from  the  COS  and  SIN 
printouts. 

The  symbols  are  as  follows: 

block  number  corresponding  to  the  edge  of 
t he  edge/corner  pair 
preserve  flag 

number  of  the  edge  involved  in  the  contact 
number  of  the  corner  involved  in  the  contact 
block  number  corresponding  to  the  corner  of 
the  edge/corner  pair 
pointer  to  next  contact 

not  used  at  present,  but  intended  for  storing 
comulative  shear  and  normal  displacements,  it 
required  for  a non-linear  law. 

normal  and  shear  forces 

sine  and  cosine  of  the  angle  of  edge  (of  t he 
edge/corner  pair)  to  the  global  x-axis  ol  the 
run 

coordinates  of  contact  point . 


With  any  explicit  program,  the  critical  time-step  is  determined  by 
the  highest  eigenvalue  (highest  natural  frequency)  in  the  system.  It  the 
time-step  is  made  larger  than  critical,  numerical  instability  results.  This 
form  of  instability  is  usually  obvious  when  it  occurs,  but  may  be  masked  it 
mass-proportional  damping  is  used  or  energy  is  being  dissipated  by  sliding. 
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It  there  is  any  viovil>t  about  t ho  results,  tho  run  should  bo  repeated  with 
lowei  time-step  and  the  rosults  compared.  The  program  calculates  a critical 
time-stop,  but  one  that  is  based  only  on  tho  oscillation  of  a single  deyree- 
of-freodom  system  with  tho  lowest  mass  and  highest  stiffness  in  the  problem. 
The  usei  must  reduce  this  time-step  still  further  by  specifying  a fraction 
(FRAC*)  by  which  the  computed  time-step  is  multiplied.  This  is  necessary 
because  the  apparent  stiffness  acting  on  a block  increases  as  it  becomes 
surrounded  by  other  blocks.  A value  of  FRAO  of  0.1  is  probably  safe  tor  most 
problems,  but  0.2  tv'  0.r>  may  be  used  wit  h caution  for  loosely-packed  assembl  i 
11  st if f ness-proportional  damping  is  used,  a lower  time-step  is  needed  t oi 
stability,  but  mass-proportional  damping  does  not  influence  the  numerical 
st  abi 1 ity. 

2.4.6  DAMPING 


Two  forms  of  viscous  damping  are  incorporated  intv'  the  formulation 
embodied  in  RDM.  Physically  these  correspond  tv': 

a)  dashpots  from  block  centroids  to  "ground"; 

b)  dashpots  across  contacts. 

The  dashpots  across  the  contacts  opeiate  both  in  the  shear  and 
normal  directions;  the  shear  dashpot  is  "switched  off"  during  sliding. 

In  finite-element  notation,  the  damping  is  described  as  follows: 
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[c]  = a[m]  + t>[k] 


where  Tc]  is  the  damping  matrix 
[:n]  is  the  mass  matrix 
M is  the  stiffness  matrix 
a and  (A  are  constants,  given  by 


a “ w . and 

min  min 

^min 

S - 


where  f 


min  2it 


For  an  elastic  continuous  system  (i.e.  one  in  which  there  is  no 
slip  or  breaking  and  making  of  contacts),  the  damping  scheme  described 
above  is  termed  Rayleigh  damping  (e.g.  sue  Seed  et_  nl*»  197o) . It  damps 
the  natural  modes  of  oscillation  of  the  system  as  follows: 


1 ^ (77 

S «-  u' 


min  . 

+ — ) A . 

10  min 


where  A is  the  fraction  ot 


•ritical  damping  fot  mode  ;;  with 


angular  frequency  u>  . 


10  . , A are  input  parameters 

min  min  ' ' 

described  on  the  plot  below. 


The  equation  given  above  shows  that  the  damping  varies  with 
frequency,  and  in  particular  there  is  a minimum  value  for  damping.  This 
is  shown  in  the  following  plot: 


As  remarked  earlier,  the  theory  reported  above  applies  to  an 
elastic,  continuous  system,  which  has  natural  modes  of  oscillation.  For 
a discontinuous  system  that  dissipates  energy  in  slip  the  theory  does  not 
apply,  but  damping  still  occurs,  and  can  be  understood  in  terms  of  the 
physical  effects  of  each  type  of  dashpot.  The  mass-proportional  damping 
has  an  effect  similar  to  that  of  immersing  the  block  assembly  in  a 
viscous  fluid;  i.e.  absolute  motion  relative  to  the  frame  of  reference 
is  damped.  Stiffness-proportional  damping  on  the  other  hand  is  equivalent 
to  dashpots  connected  across  the  contact  stiffnesses  (springs);  in  this 
case  block- to- block  motion  is  damped,  but  absolute  motion  is  not. 


L_ 


Either  type  of  damping  can  be  used  separately  or  together.  Mass- 
proportional  damping  is  effective  in  reducing  low  frequency  motion  where 
the  whole  block  assembly  "sloshes"  from  side  to  side.  Stiffness-proportional 
damping  is  more  effective  against  the  high-frequency  noise  of  individual 
blocks  "rattling"  against  their  neighbours . 


. a! 
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2.4.7  KNOWN  PROBLEMS 

Errors  may  occur  if  a block  is  rotating  rapidly  without 
translational  motion;  these  errors  may  be  of  two  forms: 

i)  Reboxing  is  triggered  only  after  cumulative  rotation  has 

built  up  to  0.01  radians.  Reboxing  of  corners  may  be  needed 
more  frequently  than  this  for  long  blocks,  with  the  result 
that,  either  an  error  message  will  be  printed  by  REBOX,  or 
UPDAT  will  fail  to  find  a contact,  and  allow  blocks  to 
interpenetrate. 

ii)  Updating  of  contacts  is  triggered  only  on  cumulative  trans- 
lational motion,  so  that  new  contacts  may  be  missed  for 
blocks  that  are  only  rotating.  Again,  the  effect  will  be 
for  blocks  to  interpenetrate. 

The  errors  described  above  are  unlikely  to  occur  for  normal  runs. 
If  they  do,  it  will  be  immediately  obvious  - either  blocks  will  inter- 
penetrate, or  the  program  will  halt  with  an  error  message.  The  problem  may 
be  overcome  by  storing  global  coordinates  for  corners,  instead  of  local 
coordinates.  Updating  and  reboxing  could  then  be  triggered  directly  from 
true  corner  movements,  regardless  of  whether  they  were  caused  by  translation 
or  rotation.  Such  a scheme  is  used  in  program  SDEM,  described  in  Chapter 
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2 . r>  EXAMPLES  AND  VALIDATIONS 

This  section  documents  some  of  the  validation  runs  that  have  been 
made  with  RUM  to  verify  that  it  works  as  intended.  During  the  course  of 
these  tests  some  bugs  were  found,  and  some  changes  made  to  the  pre-release 
version  of  the  program  that  was  made  available  in  September  1977.  For 
completeness  these  changes  are  documented  in  Appendix  IV;  the  current 
version  of  RUM  is  listed  in  Appendix  xil. 

2.5.1  VALIDATION  1 - block  on  plane 

This  qualitative  example  illustrates  a block  sliding  down  a 
plane.  The  coefficient  of  friction  is  firstly  set  so  that  the  block 
accelerates  under  gravity,  secondly  to  bring  the  block  to  rest , then 
thirdly  to  allow  it  to  accelerate  again  and  topple  off  the  edge  ot  the 
plane.  This  final  event  is  illustrated  in  Figure  2.5. 

2.5.2  VALIDATION  2 - Impact  of  two  blocks 

This  example  was  intended  to  check  for  symmetry  during  impact, 
when  two  identical  blocks  are  allowed  to  collide.  It  is  worth  noting 
that  the  contact  forces  are  transmitted  at  the  block  corners  only.  Energy 
and  momentum  are  conserved,  and  there  is  no  angular  motion  after  the 
impact,  even  in  the  extreme  case  of  point-to-point  contact  in  the  second 
run.  Figure  2.6  shows  the  results. 


A.Jj.  * VALIDATION  ' - ronservat  ion  of  oneijjf  and  momentum 

Figure  J.7  shows  t he  effect  ot  varying  the  time step  on  the  energy 
and  momentum  after  the  eccentric  impact  ot  two  blocks.  The  kinetic 
energy  and  total  momentum  after  impact  are  compared  with  the  initial 
values,  and  the  kinetic  energy  is  plotted  against  fraction  of  critical 
tiniest ep.  Linear  momentum  is  conserved  exactly  in  all  examples.  It  is 
observed  that  total  momentum  is  conserved,  and  that  kinetic  energy  is 
conserved  as  the  t imestep  tends  to  zero. 

The  reason  kinetic  energy  is  not  conserved  exactly  tor  highei 
values  of  timestep  is  that  the  program  does  not  compute  exactly  the  time  of 
making  or  breaking  ot  the  contact.  When  the  two  blocks  come  into  contact, 
the  resulting  mass/spring  system  starts  to  execute  part  ot  a cycle  ot 
simple  harmonic  motion.  Theoretically,  the  release  ot  the  contact  should 
occur  when  the  force  between  the  two  blocks  passes  through  zero.  Howevet 
this  will  not  be  the  case  if  an  integral  number  of  time-steps  does  not  fit 
into  halt  a cycle  of  oscillation,  since  the  release  time  is  only  taken  to 
the  nearest  time-step.  At.  It  is  quite  simple  to  overcome  this  inaccuracy 
by  employing  logic  that  determines  the  exact  release  time,  and  interpolates 
the  force  accordingly.  This  was  not  done,  for  several  reasons: 

a)  to  save  computing  time; 

b)  At  would  be  small  anyway,  due  to  the  constraints  imposed  by 
a dense  packing  of  blocks; 

c)  the  program  would  not  generally  bo  used  to  model  impact 
problems. 


2 . S . •!  VA1, 1 DAT  1 ON  •!  - blocks  tailing  i n t o a ronyl  a do 

The  object  of  this  tost  was  to  check  the  reboxing  and  updatinq 
logic  for  multiple  blocks  and  complex  interact  ions.  The  example  illustrates 
a number  of  blocks  being  allowed  to  fall  under  qruvity  into  a fixed 
receptacle,  and  coming  to  rest  where  t hey  have  fallen  (Figure  2.S). 

Inspection  ot  the  contact  and  box  lists  using  the  DUMP  command  showed 
that  the  logic  was  working  as  intended. 

J.5.5  VALIDATION  5 - block  tailing  onto  plane 

The  object  of  this  test  was  to  verify  that  the  accelerat ions  and 
decelerations  both  in  tree  fall  and  in  sliding  were  correct. 

The  initial  conditions  (time  t = O)  for  this  validation  are 
presented  in  Figure  2.D.  The  coefficient  ot  friction  (;.)  was  chosen  to 
be  slightly  greater  than  tan  a so  that  the  free  block  would  bo  retarded 
after  it  started  sliding  on  the  plane.  The  fraction  ot  critical  time-step 
was  taken  to  be  0.1,  in  view  of  the  eonsiderat ions  presented  in  the  previous 
sect  ion . 

1 

Since  the  problem  was  basically  one  of  a dynamic  nature,  t he 
important  damping  effects  were  those  due  to  stiffness  damping  and  so  the 
mass  damping  term  of  the  Rayleigh  equat ion  was  suppressed.  The  fraction  of 
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critical  damping  at  the  mini  mum  frequency  t was  taken  as  0.5,  and  f was 


calculated  as  the  t requency  ot  the  single  degree-of- freedom  system 


comprising  the  mass  of  the  block  and  a single  contact  stiffness. 


Validation  5 lease  A)  was  run  from  time  t 0 with  the  posit io 


ot  the  1 1 i'e  block  being  plotted  and  numerical  data  being  obtained  after  two 


periods  ot  cycles.  The  block  was  then  iust  above  t he  inclined  pi. 


aftei  this  it  was  necessary  to  reduce  the  periods  to  100  cycles  in  otdei  t. 


'bsorve  the  details  ot  the  motion.  Graphical  output  is  presented  in  Figure 


2.10  in)  . 


Figure  2.10(b)  shows  the  variation  of  the  velocities  in  the  x and 


y directions  with  time,  from  which  it  is  evident  that  after  2,500  cycles 


ttie  accelerat ions  have  become  constant.  The  tailing  block  has  been  through 


three  distinct  stages: 


constant  acceleration  due  to  gravity; 


an  impact  resulting  in  the  block  toppling  over  onto  one 


s ide ; 


constant  retardation  due  to  the  effect  of  friction  between 


the  block  and  the  plane. 


Stages  i)  and  iii)  can  bo  examined  analytically  since  they 


represent  simple  motion  in  a straight  line  undei  the  effects  ot  constant 


forces. 


" * ** 


31 


Stage  i) 

For  a free  falling  body  with  zero  initial  velocity  the  following 
equations  of  motion  can  be  applied: 

velocity,  v = gt 
distance,  s = Sgt~ 

For  a time  t represented  by  1,000  cycles  those  equations  predict 
v = -62.04  and  S = -196.20.  The  program  gives  values  of  -62.0  and  -196.0 
respectively. 

Stage  iii) 

For  a body  sliding  down  a rough  inclined  plane  under  the  action 
of  a constant  force  P 

P + ):mg  Cos  a - mgSina  = 0 
and  since  p = ma 

a = g (sin  a - iicosa)  . 

For  U=0. 30, 

a = -0.476 

And  in  the  coordinate  directions 
a...  = 0.461 
a.(  = 0.115 
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The  run  was  repeated  with  a higher  coefficient  of  friction 
(case  B)  and  the  results  are  shown  in  Figures  2.11(a)  and  2.11(b).  With 
this  slightly  higher  value  the  block  conies  to  rest  while  still  on  the 
plane.  For  this  case  the  theoretical  predictions  are: 

ax  = 0.922 
ai>  = °-231 

The  program  indicates  values  of  0.919  and  0.231  respectively. 

An  examination  of  the  contact  forces  reveals  the  expected  results. 
The  condition  FS  = IFN  is  maintained  almost  exactly  as  the  block  slides 
down  the  plane  and  comes  to  rest.  The  forces  on  the  stationary  free  block 
are  those  predicted  from  static  theory. 

The  conclusion  to  be  drawn  from  this  validation  is  that  the 
friction  formulation  and  the  MOTION  subroutine  appear  to  be  functioning 
correctly.  Any  small  discrepancies  in  the  numerical  data  probably  result 
from  the  fact  that  the  free  block  undergoes  small  oscillations  about  its 
centroid  as  it  travels  down  the  plane. 


2.5.e  VAL  1 PAT  1 ON  o : TOPPLING  BLOCKS 


Goodman  and  Bray  (1976)  present  an  analysis  of  a system  of 
toppling  blocks  using  1 unit  nw  equilibrium  methods.  They  analyse  the 
system  or  blocks  shown  in  Figure  2.12(a).  For  various  values  of  the 
coefficient  ot  friction,  the  analysis  gives  the  magnitude  of  the  toe 
force,  T,  necessary  for  the  system  to  be  just  on  the  point  of  collapse. 
The  mode  of  failure  is  also  predicted:  in  the  case  illustrated,  the 
three  upper  blocks  remain  stable,  t lie  lower  rout  blocks  slide  on  the 
base,  and  the  remaining  nine  blocks  rotate  about  their  lower  corners. 

Figure  2.12(b)  shows  the  system  of  blocks  as  set  up  for  the 
run  with  RHM.  The  dimensions  of  the  blocks  were  ten  times  those  used  by 
Goodman  and  Bray  (G&B)  in  order  that  contacts  would  be  detected  within 
a small  fraction  of  the  block  dimensions.  Consequently  block  weights 
and  forces  were  one  hundred  times  those  used  by  GSB.  Two  runs  were  made 
tie  first  was  to  determine  the  coefficient  ot  friction  required  for  the 
blocks  to  be  stable  with  T=0  i.e.  zero  toe  force  . The  second  run  was 
for  a coefficient  ot  friction  of  0.65;  the  object  was  to  determine  the 
magnitude  ot  the  force,  T,  for  limiting  equilibrium.  For  interest. 
Figure  2.12(c)  shows  a plot  from  RBM  with  the  coefficient  of  friction 
equal  to  0.65,  but  with  zero  toe  force:  the  blocks  are  in  the  process  of 
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2. 5. 6.1  Run  1,  Validation  6 

For  this  run  the  load,  T,  was  set  to  zero  and  the  coefficient 
of  friction  varied,  in  order  to  bracket  the  value  required  for  stability. 
Initially,  however,  the  system  of  blocks  was  "compacted"  by  allowing 
gravity  to  act  for  some  time  along  the  long  dimension  of  the  blocks. 

Gravity  was  then  rotated  to  the  correct  direction  for  the  stability  test. 
For  the  initial  compaction,  the  mass  damping  (see  DAMPING  command  in 
Appendix  III)  was  set  to  0.5,0. 7,0,1.  The  damping  was  then  reduced  to 
0.05,  0. 7,0,1  for  the  subsequent  test  of  stability.  Two  different  friction 
values  were  used  for  the  stability  test,  which  consisted  of  two  restart 
runs,  both  starting  from  the  same  restart  file  created  at  the  end  of  the 
compaction  stage.  The  predicted  coefficient  of  friction  for  limiting 
equilibrium  was  0.7855.  For  a value  of  0.80  the  system  of  blocks  moved 
slightly  and  then  stabilised,  as  judged  by  the  velocities  reducing  to 
low  values  and  the  out-of-balance  forces  and  moments  on  block  centroids 
tending  to  zero.  However  for  a friction  coefficient  of  0.77,  the  blocks 
continued  moving,  with  the  velocities  increasing.  It  was  noted  that  the 
mode  of  failure  was  slightly  different  from  that  predicted  by  Goodman  and 
Bray,  in  that  only  three  of  the  lower  blocks  were  sliding  rather  than 


toppling,  compared  to  four  blocks  predicted  by  Goodman  and  Bray. 


b 
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t' . Run  Va_liil.it  i.mi  (■ 

Foi  thin  run  t ho  friction  coefficient  was  held  constant  at  0.65, 

and  the  load,  T,  vat  led  in  ordet  to  determine  the  value  required  far 

stabil tty.  As  for  Run  1 , the  vat  ions  tests  were  made  from  a common 

starting-point,  using  the  restart  file  created  at  the  end  of  the 

compaction  phase.  The  dampinu  parameters  tor  the  stability  tests  were: 

i \ 0.25 

l mm 

\ t = 0.7,  with  the  stiffness  term 


Goodman  and  Bray  predict  t hi'  critical  value  ot  T to  be  2011  units, 
but  tlie  system  was  found  to  stabilise  with  T=2000  units.  At  T ll)00  units 
the  blocks  were  definitely  unstable,  and  collapse  occurred. 

.\r'.t-._l  t’onc  lus  ions  t rom  Validation  o 

Run  1 bracket  ted  the  coefficient  of  friction  with  a range  that 
includes  the  value  predicted  by  Goodman  and  Bray.  llowevei  Run  showed 
that  the  system  ot  blocks  was  stable  for  a lowei  value  ot  toe  force  than 
predict  I'd.  Although  the  difference  was  quite  small,  it  is  worth  trying 
to  understand  what  caused  it. 


For  T - 2000,  RBM  found  a valid  system  ot  forces  that  satisfied 
equilibrium.  Since  this  corresponds  to  the  requirements  for  a lower  R'und 
solution,  the  observed  force,  T,  should  have  been  higher  than  the  "true" 


value  fot  limiting  equilibrium,  rather  than  lower. 


A check  was  made  by 


hand  that  the  forces  acting  on  individual  blocks  did  indeed  suin  to  zero. 
Tin'  reason  for  the  discrepancy  was  traced  to  the  tact  that  the  system  of 
contacts  assumed  in  Goodman  and  Bray’s  analysis  differed  from  that 
developed  during  the  computer  run  with  RBM.  For  the  toppling  blocks, 
Goodman  and  Bray  assumed  the  contacts  to  be  located  as  shown  below: 


The  contacts  observed  to  have  formed  at  equilibrium  in  Run  2 
were  as  follows: 


The  magnitudes  of  the  forces  were: 
l and  2 ...  high 
.1  ...  quite  high 


•1 


. ..  very  low 
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It  was  conjectured  that  the  different  location  of  the  forces  was 
responsible  for  t he  greater  apparent  stability  of  the  system  of  blocks. 

In  particular  the  effect  oi  the  two  forces  acting  on  the  long  edge  of  each 
block  would  be  equivalent  to  a single  resultant  force  acting  some  way 
down  the  edge,  and  not  at  the  top,  as  assumed  by  Goodman  and  Bray.  In  order 
to  test  the  conjecture,  a program  was  written  that  carried  out  a Goodman 
and  Bray  limit  equilibrium  analysis,  but  with  a variable  contact  location 
on  the  long  edges,  rather  than  fixed  at  the  top.  A variable,  C,  which 
could  take  values  between  O anil  1,  specified  the  location  of  the  contact- 
point  as  a fraction  ot  the  block  height.  All  blocks  were  affected  by  the 
change,  with  a value  of  1.0  for  C giving  the  standard  Goodman  and  Bray 
solution.  However,  moving  the  contact  points  down  gave  the  following  reduction: 
in  the  force,  T,  necessary  for  stability: 


c 

T 

1 .0 

2011 

0.75 

1095 

0.  50 

1902 

Both  the  direction  and  magnitude  of  the  change  in  T correspond 
well  with  the  experience  with  R BN  (Run  2)  reported  earlier.  Although 
this  result  lends  support  to  the  conjecture  that  changes  in  contact 
locations  are  responsible  for  the  changes  in  stability,  it  is  not  the 
whole  story,  since  the  contact  locations  can  also  vary  on  the  lower 
edges  and  they  can  also  be  different  for  different  blocks. 


T ’l 
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It  is  not  clear  whether  the  assumptions  made  by  Goodman  and 
Bray  are  any  more  realistic  than  those  implicit  in  the  distinct 
element  simulation.  Finite  rotations  must  occur  before  the  contact 
points  migrate  to  the  top  corners  of  the  toppling  blocks,  but  these 
cannot  occur  until  the  system  starts  to  fail.  It  would  appear  that 
the  force  necessary  to  prevent  any  movement  is  smaller  than  the  force 
necessary  to  restore  equilibrium,  once  a very  small  movement  has 
occurred . 
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’.6  CONCLUSIONS  AND  SUGGESTIONS 


Almost  d one-for-one  translation  of  the  original  assembly- 
language  distinct  element  program  into  Fortran  has  been  made.  The 
temptation  to  "improve"  the  program  has  been  resisted,  because  the 
program  is  intended  to  serve  as  a base-line  version  from  which  more 
exotic  versions  can  be  developed.  Its  use  of  memory  could  certainly 
be  improved,  and  perhaps  its  speed  as  well;  these  points  are  addressed 
below.  However  it  lias  been  established  by  several  validations  that 
the  program  works  as  intended. 


It  should  perhaps  be  recorded  that  certain  constraints  in 
the  original  assembly  language  version  are  not  present  in  the  Fortran 
version,  RBM: 


1)  Block  velocities  can  assume  any  value;  there  is  no 
limiting  velocity  in  RBM. 


2)  Inertial  masses  have  the  correct  physical  values 
(recall  that  all  blocks  had  the  same  mass  in  the 


original  program) . 


i)  The  moments  of  inertia  are  also  correct. 


•1)  The  timesfep  in  RBM  corresponds  to  real,  physical  time 
(in  tlie  original  prog  ram  the  apparent  time-scale  was 
different  for  different-sized  blocks). 
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The  constraints  of  the  original  program  were  due  to  the  fact  that 
variables  had  to  be  represented  as  integers,  which  limited  the  range  of 
permissible  numbers.  Of  course  RBM  does  not  suffer  in  this  way. 

2.0.1  SUGGESTIONS  FOR  FUTURE  MODIFICATION  AND  DEVELOPMENT 

Many  of  the  suggested  developments  have  already  been  made  to  the 
following  programs,  all  of  which  work  on  similar  principles: 


1)  SDEM , the  program  described  in  Chapter  3; 

2)  HALL,  the  program  developed  by  Cundall  (1978)  for  research 

into  the  mechanics  of  granular  media; 

3)  a new  program  under  development  to  allow  the  discrete 
blocks  of  SDEM  to  crack. 

The  suggestions  are  as  follows: 

1)  Free-format  input  (as  in  SDEM). 

2)  Coordinate  transformations  built-in,  so  that  any  set  of 
problem  coordinates  could  be  used. 

3)  Allow  blocks  to  be  created  at  any  time.  (see  BALL) 

4)  Use  global  coordinates  for  block  corners  instead  of  local; 

this  will  allow  reboxing  to  be  more  efficient  and  foolproof 
(see  SDEM) . 

5)  Store  box  entries  all  along  block  edge,  rather  than  just 

for  corners  (see  BALI.).  This  will  allow  local  (single  block) 
updates,  rather  than  the  present  global  updates . 

(>)  Eliminate  storage  of  non-essential  variables  - e.g.  edge 

lengths,  block  angle,  COS  # SIN  of  block,  force-sums  on  block. 

7)  Allow  different  properties  for  different  joints  and  blocks. 

8)  Incorporate  edge-to-edge  contact  formulation  for  almost- 
parallel  edges. 

9)  Incorporate  cracking,  joint  water  pressure  and  dynamic  loading. 
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FIGURE  2.4  CONTACT  DATA  LISTS 
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.7  VALIDATION  3 - EFFECT  OF  TIMESTEP  ON  ENERGY 
AND  MOMENTUM  CONSERVATION 
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J.l  INTRODUCTION 


The  scheme  described  in  this  section  is  an  extension  ol  the 
distinct  element  method  (DEM)  in  which  limited  deformabi 1 it y is  given  to 
each  element.  It  is  an  attempt  to  preserve  the  simplicity  and  efficiency 
of  the  DEM  while  extending  its  usefulness  in  modelling  high  stress 
applications.  The  new  program,  SDEM,  is  intended  for  representing  rock 
systems  where  the  intact  behaviour  of  the  rock,  although  affecting 
significantly  the  mechanics  of  the  system,  does  not  participate  strongly 
enough  for  the  more  complex  deformation  modes  to  contribute  much  to  the 
overa 1 1 de forma t ion . 

However,  for  situations  involving  blocks  of  rock  with  complex 
shapes,  or  with  complex  loading,  and  which  also  undergo  large  deformat  ions 
of  the  intact  material,  there  is  no  alternative  but  to  discretize  the  block 
itself  in  order  to  provide  the  many  degrees  of  freedom  that  can  permit  the 
block  to  deform  in  an  adequately  complex  manner.  This  approach  is  taken 
with  program  DBLOCK,  which  is  described  in  Section  n . 

The  simplifications  embodied  in  SDEM  are  concerned  only  with  the 
number  of  degrees  of  freedom  associated  with  block  deformations;  the 
constitutive  laws  can  be  completely  general,  and  include  plasticity  and 
arbitrary  non-1 inearity . It  should  be  appreciated  that  the  approach 
described  in  this  section  has  not  yet  been  tully  explored,  and  that 
evolution  will  take  place  as  experience  is  accumulated:  tin'  formulation 
that  has  been  presented  should  not  be  taken  in  any  sense  as  the  optimum. 
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A listing  of  SDEM  is  given  in  Appendix  XI.  The  input  commands 
are  almost  identical  to  those  of  RBM,  except  for  some  changes  noted  in 
Section  3.S 

3.2  SIMPLIFIED  EXPLANATION  OK  DEFORMABLE- BLOCK  APPROACH 

In  order  to  give  the  reader  a physical  picture  of  what  is 
involved  in  the  new  formulation,  a descriptive  account  of  the  behaviour 
of  a block  deforming  volumetrically  is  presented  below.  The  general 
formulation  is  given  later. 

3.2.1  VOLUMETRIC  DEFORMATION 


Consider  an  arbitrary  block  suddenly  exposed  to  a uniform 

A 

pressure,  p: 


NOTE 

SUPERSCRIPT  "A"  STANDS 
FOR  "APPLIED"  AND  " I " 
FOR  "INTERNAL" 


Instantaneously,  nothing  will  happen  owing  to  the  finite  wave 

speed  in  the  solid.  In  particular,  the  isotropic  stress  in  the  interior 

I 

of  the  solid,  will  be  zero  at  the  instant  that  the  pressure  is.  applied, 


and  will  build  up  gradually  as  the  pressure  wave  reaches  the  interior  ot 


Sb 


th  block.  In  addition,  the  boundaries  of  the  block  will  move  inwards 
towards  the  centre  due  to  the  volumetric  compression  of  the  material. 

Over  a larger  time  span  the  internal  stress  and  the  boundary 
displacements  will  be  oscillatory,  and  will  consist  of  a summation  of  the 
many  natural  modes  of  oscillation  of  the  body.  The  predominant  mode, 
however,  will  be  the  fundamental,  which  corresponds  to  all  points  in  the 
body  moving  either  inwards  or  outwards  in  phase: 


INTERNAL  STRESS  OF  BODY  OSCILLATING 
IN  FIRST  MODE 


A 

P 


TIME  

APPLIED  PRESSURE 


mean  value 
at  t or 


The  internal  isotropic  stress  will  oscillate  about  a 
equal  to  the  applied  pressure,  and  will  converge  to  this  pressure 
internal  damping  has  dissipated  all  dynamic  energy. 


The  behaviour  described  above  - that  of  a solid  body  oscillating 
in  its  first  volumetric  mode  - is  simply  that  of  a single  degree-of- freedom 
oscillator,  such  a mass-spring  system,  being  excited  by  a step  force.  The 


analogy  between  the  block  and  the  mass-spring  system  is  as  follows: 


MASS  SPRING  SYSTEM 


BLOCK  WITH  APPLIED  PRESSURE 


time 


TiME 


♦ • m MASS 

. I- 


TIME 


I 


k - SPRING 
CONSTANT 


time 


AV 

V 


TIME 


VOLUME  CHANGE 

AV  AV 

V 


K 


f applied  force 

P SPRING  FORCE 
U DISPLACEMENT 
U VELOCITY 
w MASS 

k SPRING  CONSTANT 


VOLUMETRIC  STRAIN 

APPLIED  PRESSURE 


A V 
V 


INTERNAL  ISOTROPIC  STRESS 

; VOLUMETRIC  STRAIN 

v 

*v  VOLUMETRIC  STRAIN  ‘ RATE 
me  EFFECTIVE  MASS 

K BULK  MODULUS 


EQUIL 


- - EQUILIBRIUM  DISPLACEMENT 

K 


EQUIL 


£ EQUILIBRIUM  VOLUMETRIC  STRAIN 
K 


NATLIRAL  angular  frequency 


/ K 

=*/--  NATURAL  ANGULAR  FREQUENCY 

m m* 


NOTE  HERE  , m IS  THE  "MASS  NECESSARY  FOR  THE  NATURAL  FREQUENCY  u>  TO  BE 
' o 

EQUAL  TO  THAT  OF  THE  FIRST  VOLUMETRIC  MODE  ITS  EVALUATION  WILL  BE 
TREATED  IN  APPENDIX  V 
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The  central-difference  algorithm  for  computing  the  response  of 
the  mass-spring  system  is  as  follows: 


(F  - F ) At 


At  = TIME  STEP 


THE  SYMBOL  : MEANS " REPLACED  BY* 


= F + KuAt 


Here,  F is  an  independent  variable  and  is  prescribed  as  a function  of  time 


Using  our  analogy,  the  response  of  the  block  to  applied  pressure 
takes  the  same  form: 


( p - a0  ) At 


t : t + 
V V 


(LAW  OF  MOTION  FOR  BLOCK  STRAIN) 


i t 

Ob  : Ob  + K t At 
v 


(CONSTITUTIVE  LAW  FOR  BLOCK) 


3.2.2  Other  Modes  of  Deformation 


Analogies  similar  to  that  described  above  can  be  made  for  other 
simple  modes  of  deformation,  such  as  a shear  mode: 


In  general,  any  number  of  independent  modes  of  deformation 


■ ; ■■  -‘V  be  taken.  However#  in  tin  program  three 

used,  corresponding  to  the  three  strains  in  two  dimensions 
1 j'  > + : >]•*  'I'tier.e  modes  are  visualised  as  follows: 


modes 

L.o.  ( 


are 

11* 


In  addition  to  those  modes  there  remain  of  course  the  three 
rigid-body  modes  considered  by  the  original  block  program  (two  trans- 
lational and  one  rotational  degrees  of  freedom),  making  six  degrees  of 
freedom  per  clock  in  total. 


3 ■ 2 . 3 Coupling  ot  Blocks 


llit'  degrees  of  1 1 cedorn  described  above  are  associated  with  each 
block  individually.  Blocks  are  coupled  together  via  the  joint  stiffnesses, 
whose  formulation  is  unchanged  from  that  of  the  original  rigid  block  program. 
However,  there  now  are  t wo  addit ional  stages  in  the  calculation: 


♦In  this  sect  ion,  , ..  * .,t;en 

with  the  j eo-ord i n.i t e . 


the  part iul  derivat ive  of  the  i displacement 


/ O 


>.J  /V-j;  ! led  .'Mil’S:!  IV  lived  I Hill  IliUmduiY  I'm  Cos 

The  average  si  miss  in  .1  closed  volume  can  lx*  am  ived  110m 
loiivs  act  mg  on  t ho  boundary  ot  t ho  volume,  usiih  dans:;1  divetoencx 
thooiom.  In  tin:'-  way  t ho  "applied  st  loss"  on  t ho  block  is  ovalualtv 
the  ;.ot  01  tercet!  developed  by  the  contact:;  around  the  block.  Thus: 


in  tensor  notation,  where 
c 

represents  the  sum  over  all  contacts,  and 

V is  the  block  volume  1 area  in  dimensions' 

c 

Kj  are  the  torces  at  contact  c 

are  the  co-ordinates  ot  contact  c telative  tc  the  centroid 
j 

4 

Pci  example,  the  applied  pressure  p used  111  is  given  by: 


t he 


i t t om 


' . ’ boundary  Or splacement s Derived  H orn  St  ra  ms 

In  tht'  original  block  program,  the  displacement  increments  at 
block  boundaries  were  evaluated  in  order  to  give  normal  and  shear  increment 
ot  displacement  at  contacts,  which  would  then  allow  contact  forces  to  bo 
found.  The  boundary  displacements  were  derived  from  the  known  centroid 
displacements  and  rotation. 


For  deformable  blocks,  the  displacements  at  a block  boundary 
are  also  functions  of  the  strains  in  the  block.  For  example,  in  the  case 
of  a volumetric  compression,  at  each  boundary  point  the  displacement 
vector  is  directed  inwards  towards  the  centroid,  with  a magnitude 
proportional  to  the  distance  trom  the  centroid: 

BOUNDARY  DISPLACEMENTS  DUE  TO 
VOLUMETRIC  COMPRESSION 


In  general,  for  strain  increments  referred  to  orthogonal  axes, 

the  expression  for  boundary  displacement  increments  is: 

c c 

au  = (At  + aR  ) X t Au 

i i i >11  > 

Here,  the  superscript  "c"  stands  for  "contact"  or  "corner". 


The  terms  AK  and  Au  are  the  rotation  and  rigid-bodv  t rans- 

tj  t 

lations  that  were  used  in  the  rigid-block  program. 


x are  the  co-ordinates  o 


t contact  c relative  to  the  centroid. 
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3.3  SEQUENCE  OF  OPERATIONS 


Before  giving  the  mathematical  treatment  of  the  calculation 


method,  it  may  be  useful  to  present  a flow  diagram  in  order  to  get  an 


overall  picture  of  what  happens  in  the  program: 


FOR  EACH  BLOCK 


SUBROUTINE  MOTION 


• RIGID-BODY  VELOCITIES  ARE  UPDATED  USING  KNOWN  FORCE  SUMS  ACTING 
ON  CENTROIDS  (COMPUTED  IN  FORD) 


• BLOCK  AREAS  AND  EFFECTIVE  MASSES  COMPUTED 


STRAIN -RATES  UPDATED  FROM  KNOWN  APPLIED  AND  INTERNAL  STRESSES 
(COMPUTED  IN  FORD) 


CO-ORDINATES  OF  BLOCK  CORNERS  UPDATED  FROM  STRAIN  " RAT ES  AND 
RIGID- BODY  VELOCITIES 


SUBROUTINE  STRESS 


UPDATE  INTERNAL  STRESSES  FROM  STRAIN  - RATES  USING  CONSTITUTIVE  LAWS 


FOR  EACH  CONTACT 


SUBROUTINE  FORD 


COMPUTE  NORMAL  AND  SHEAR  DISPLACEMENT  INCREMENTS  ACROSS  CONTACT 
FROM  RIGID' BODY  VELOCITIES  AND  STRAIN  - RATES  OF  BOTH  BLOCKS 
INVOLVED  IN  THE  CONTACT 


UPDATE  SHEAR  AND  NORMAL  FORCES  FROM  ABOVE  DISPLACEMENT  INCREMENTS 


ADD  IN  THIS  CONTACT  S CONTRIBUTION  TO  THE  APPLIED  STRESS  SUMS  FOR 
BOTH  BLOCKS  INVOLVED  IN  THE  CONTACT 


• ADD  IN  THIS  CONTACT'S  CONTRIBUTION  TO  THE  FORCE  SUMS  FOR  CENTROIDS 
OF  BOTH  BLOCKS 


’ . -1  MATHEMATICAL  TKKATMKNT 


The  equations  corresponding  t v->  the  flow  diagram  given  in 
Section  1.3  are  presented  ltelow.  Tensor  notation  is  used  for  subscript 


i,j,  and  k only,  where  repeated  indices  imply  summation  over  the  index. 


Ind  ic< 


These  have 
mu  dinates . 


values  1,J  and  ret  er  to  orthogonal 


Contact  or  cornet  numbe 


means  "relative 


^ These  superscripts  are  intended  to  distinguish 
I between  the  two  blocks  participating  in  a cent 
"P"  refers  to  the  block  contributing  the  come 
"E"  refers  to  the  block  contributing  tin*  edge 
edge/corner  contact . 


Synibo 1 s : 


x.  Centroid  coordinates  of  block. 

t 

x.  Centroid  velocities  i't  block. 

1 

AX.  Incremental  sheat  and  normal  displacements  .it 
t 

a cont act . 


P.  Shear  and  normal  forces  at  a contact . 
r 

Global  contact  forces. 

0 Angulat  velocity  ot  block  (anticlockwise  posit 


R . 
i J 


A 

i . , 

i 1 

A 

e 

i 1 
c 
x 


Skew-symmetric  tensor  equal 


to  0 ** 
0 


Maximum  block  widths. 

Strain  rate  tor  a block. 

Applied  st i ess  on  a block. 

Global  coot dinates  ot  contact  point 


ot  block  c 


act  . 
t , atu 
to  t 111 


i vel  . 


ot  net 


Inlet na I st  1 1 


in  a block 


Vo  l oo 1 1 it*:,  ot  ivnl  ai’l  (v'uit  >’i  I'l.’i'K  001 
Koii'c  sums  i'll  blook  i'imiI  i oul. 

Monu'tit  sum  on  blook  oontioid. 

I - Sf. 

I / i 1 * 1 

n ,\t  , wild  o .i , i-  ui 

Knyloinh  li.imi 
put  aiuot  oi  s . 


S,\m<'  as  a and  b,  but  with  i dot  lin'd  toi 
i nt  «'i  tin  1 hi  ook  damp  t in t . 


Aoeoloiation  duo  to  gravity. 
Momont  ot  i not  t ia  toi  blook. 
Hlook  mass. 


hi  ook  ai oa . 


l'.ttootivo  blook  mass  t v->  i stininintn  oal 
(soo  Append i \ V ' . 

Hulk  modulus  toi  blook  mat  oi  ial. 

Shoat  modulus  toi  blook  mutoiiul. 

l*'i  lotion  ooottioiont  toi  oont.iots. 

(.'out  not  st  i t t nossos , o>iual  to 


wliot  o k 
k 


shoal  .(itt  lit-? 
noi  ina  1 stilt  m 


Ki  onookot  dolt  a 


u 

1 O 

O 1 


no!  . 


0 t ho 

1 IK) 


on  1 a t ion: 


A t otisoi 


moans  topi  need  hy 


(i'  Subscripts  in  parentheses  indicate 
non-tonsoi  ini  character  . 


The  tollowina  calcul.it  tons  arc  .lone  tot  all  blocks  (subroutines  MOTION  k s'TR 
Km  id-body  volocit  ios: 


F . 


(ax . + ( — + u . ) At  ) h 


( aO  t --  At  lb 


M 


O 

0 


block  areas  and  olloctivo  masses : 

c n- 1 


I I 


*i 


. , . c c«  I c«  I c , 

S 2-  j (Xj  + xt  ) (X  , - X ,) } + S (x]  + xt)  (X  , 

c =1 

(n  numbot  ot 

c c 

max  (x , ) - min (x . ) 

c-l.n  ' c-l,n  1 


n 

- x 


I oi  t he  l'l  ock  1 


m ( it  1 

i 1 Va  ’ " 


St l a i n- i a t es : 


'tj  " 


+ -iil-JJ  At  lb* 


i 1 nr 


( n 


iJ 


C_orjuxv  vii  sp\  aoowrnt  s: 

c 

x . 


x(  « (,n  t R )(x, 


- X 1 


x + x . A t 
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R i.j  id-body  d Mud  a cement  s : 


x , 
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x t x At 

l t 


1 n t orna  l st  ressos : 


iJ 


Lj 
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The 
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following  calculations  are  done  for  all  contacts  (subroutine  FORD) : 
Velocities  of  corner  relative  to  edge  at  a contact: 


« . P 

X . = X . 

1 1 


. p f>  % r P k • t . C l . 

+ ( £ . . + R ) (x.  - x . ) - ( t + K . ) (x . - X ) 

tj  1J  j J lj  ij  J j 


Incremental  shear  and  normal  displacements : 


AX  = J x At  , 
1 ij  J 


where 

J . 
IJ 

r cosy 

sin>1 

L-sinv 

COS’!  J 

and 

y 

= 

angle 

between  x ^ 

normal  forces: 

= 

k.  AX  , 

ij  J 

= 

P + AP . 

l i 

=! 

cAP. 

r 

If 

n \ n ^ 

p 

= 0 

1 * VJ  ^ 

i 

1 

( 

Otherwise 

t 

D. 

1 

= o 

1 

If 

I'll"  “M-“ 

pi 

= u 

P,,  sign 

(P1) 

Otherwise 

t 

D. 

l 

0 

Global  contact  forces: 
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j 
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Notes : 


1)  The  computer  program  departs  slightly  from  the  formulation 
given  above,  in  that: 

a)  the  normal  force,  P^,  is  stored  with  the 
opposite  sign  convention  from  that  implied 
above  - i.e.  it  is  taken  as  positive  in 
compression; 

b)  the  applied  stresses  are  stored  in  the  block 
data  arrays  as  Ao . , , not  a. ..  The  division 
by  A is  done  once  only  in  MOTION,  and  not  for 
each  contribution  in  FORD,  as  indicated  above. 

2)  At  present,  two  shear  stresses  (o^  and  a ) and  two  shear 
strain-rates  (£  and  e^)  are  calculated,  as  well  as  the 
moment  and  rotation  for  a block.  In  other  words  the  program 
is  operating  as  if  there  were  seven  degrees  of  freedom  per 
block,  whereas  there  are  only  six.  Although  this  redundancy 
apparently  causes  no  problems,  it  is  unnecessary  and  should 


be  removed  in  future  versions. 
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3 . S CHANGES  TO  PROGRAM  RBM 

The  following  changes  were  made  to  the  baseline  program  RBM 
(described  in  Section  2.0)  in  order  to  introduce  simple  deformability  into 
the  blocks: 


1.  The  structure  of  the  data  lists  for  blocks  was  changed, 

but  the  system  of  pointers  shown  in  Figure  2.1  was  retained. 
The  new  data  list  is  given  in  Figure  3.1.  A new  variable, 
NVARB,  was  introduced  to  facilitate  future  changes  to  the 
block  data  list.  NVARB  equals  the  number  of  words  -in  the 
block  data  list,  excluding  the  corner  and  length  data.  It 
is  currently  set  at  24.  Changes  were  made  to  all  routines 
that  contained  references  to  the  length  of  the  block  data 
list. 

2.  The  corner  co-ordinates  stored  in  the  block  data  lists  were 
altered  from  local  co-ordinates  to  global  co-ordinates. 

Hence  the  corner  co-ordinates  of  each  block  must  be  updated 
at  each  cycle.  As  a result,  functions  GLX  and  GLV  were 
eliminated.  Subroutines  NEXT,  MOTION,  REBOX,  UPDAT  and 

BP LOT  were  modified  to  reflect  the  change  from  local  to 
global  co-ordinates. 

3.  Subroutine  REBOX  was  modified  to  enable  it  to  operate  on 
individual  corners  rather  than  on  whole  blocks.  This  was 
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made  possible  because  the  global  co-ordinates  of  each  corner 
are  known  at  each  cycle,  so  that  re-boxing  can  be  triggered 
as  each  corner  crosses  an  integer  boundary.  The  calling 
sequence  for  REBOX  was  moved  from  CYCLE  to  MOTION  to  reflect 
the  different  philosophy. 


4.  Subroutines  FORD  and  MOTION  were  changed  to  incorporate  the 
deformable-block  calculations  described  in  Section  3.4.  New 
listings  of  the  complete  program  are  given  in  Appendix  XII 1. 


5.  A new  subroutine  STRESS  was  added.  This  routine  updates 

internal  stresses  from  strain  rates.  The  constitutive  law 
is  utilized  in  this  routine,  but  at  present  elasticity  only 
is  used. 
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The  commands  CHECK  and  LOAD  are  withdrawn  temporarily. 
Other  commands  are  identical  to  those  of  RBM  (see 
Appendix  III) . 

7.  A tree-format  input  routine,  PARSE,  was  incorporated 

in  tiie  program.  This  enables  command  parameters  to  be 
entered  in  any  columns,  separated  by  blanks  or  commas. 

The  command  word  can  be  any  length  greater  than  or  equal 
to  four  characters.  Subroutine  NEXT  was  modified  to  call 
PARSE . 

3.6  EXAMPLES  AND  VALIDATIONS 


3.6.1  EXAMPLE 


Figure  3.2  shows  that  the  static  deformations  of  a block  resting 
on  the  edge  of  a table,  with  different  values  of  various  parameters.  The 
block  was  elastic  with  small  elastic  moduli,  in  order  to  demonstrate  the 
capability  of  the  program  to  treat  large  deformations. 

3.6.2  RIGID- BLOCK  COMPARISON 


Comparison  runs  were  made  of  a block  falling  on  a plane,  both 
with  tile  program  RBM  (original  program  with  rigid  blocks)  and  with  the 
new  program  SDEM  with  very  high  elastic  moduli.  The  results  were  almost 
identical,  which  is  to  bo  expected,  since  the  formulations  become  identiea 
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when  the  strain-rates  tend  to  zero.  Figure  3.3  shows  the  block  falling 
on  the  plane  for  the  two  cases  of  high  modulus  and  low  modulus.  It  is 
interesting  to  note  that  the  block  slows  down  more  in  the  low  modulus 
case,  presumably  because  more  energy  goes  into  internal  vibration,  which 
is  then  dissipated  by  the  internal  damping. 

3.U.3  CONTINUUM  VALIDATION 

In  the  limit  of  very  high  joint  stiffness  an  assemblage  of  blocks 
should  resemble  a continuum,  both  statically  and  dynamically.  The  column 
of  blocks  shown  in  Figure  3.4  was  used  to  check  this  aspect. 

In  all  runs,  the  "LOCK  ON"  option  was  used,  in  which  all  contacts, 
once  created,  were  locked  in  the  norma  1 direction,  but  with  slip  possible 
in  the  shear  direction  when  permitted  by  the  value  of  friction.  Three 
cases  were  treated:  unconfined  column  and  confined  column  in  compression, 
and  column  in  shear.  The  column  was  loaded  by  applying  gravity  either  in 
the  x or  y directions.  For  the  dynamic  cases,  the  mass  damping  and  internal 
damping  were  zero,  with  the  joint  stiffness-proportional  damping  as  follows: 

fraction  of  critical  = 0.1 


frequency 


10.0 


For  tlu'  static  oases,  the  stiffness-proportional  term  was  set  to  zero, 
and  the  mass  damping  was  as  follows: 


Mass  damping 


) fraction  of  critical  = 1.0 
\ frequency  - 0.03 


Internal  damping 


| fraction  of  critical 
\ frequency 


0.5 
0. 25 


The  case  of  confined  compression  was  modelled  by  sett  mu  a high 
value  of  joint  friction,  which  prevents  lateral  deformation  ol  the  blocks. 
For  unconfined  compression  zero  friction  was  used.  Other  properties  were 
as  follows: 


Ma  t e r i a 1 p r o pe  r t i e s : 

Bulk  modulus: 
Shear  modulus: 

Bulk  modulus: 
Shear  modulus: 

Density: 

Applied  gravity: 

Column  height: 
Column  width: 

Number  of  block  c ■ 


k = 2.0  x lo 
n 

k = 2.0  x HI 


K = 2.0  x 104 
0 0.428572  x 

(Poisson's  ratio  = 

K = 1.0  x 10'j 
G = 1.0  x 10‘1 

e =i.o 

gs  = -1.0,  for 
gx  = 0.1,  for 

l,  = 800 

w = too 

n =8 


.1  l fo1 

10  I compression  t 
0.4) 

^ for 

( shear  test 


compression  tests 
shear  t est 


■1 


Notes:  (1)  The  period  T was  taken  over  only  one  or  two  cycles  of 

oscillation,  and  was  thus  subject  to  some  error. 

(2)  The  ratio  of  o to  in  the  confined  static  case  was 
also  measured,  and  conformed  well  with  the  theoretical 
value. 

i.o. -I  PLASTIC  FLOW  DEMONSTRATION 


A run  was  made  to  illustrate  the  unique  capabilities  of  program 
SDFM  to  model  slip  on  the  discontinuities  of  a complex  joint  pattern 
simultaneously  with  large-strain  plastic  flow  in  the  intact  material . 

This  type  of  simulation  would  probably  be  quite  difficult  to  do  with 
existing  finite  element  or  finite  difference  programs.  SDEM  handles 
it  quickly  and  efficiently. 


For  the  purpose  of  the  run,  a simple  Von  Mises  yield  law  and 
associated  flow  rule  was  inserted  into  subroutine  STRESS.  The  formulation 
was  similar  to  that  presented  by  Wilkins  (1969). 

Figure  3.5,  frame  1,  shows  the  initial  geometry  of  the  rock  block 
The  triangular  blocks  were  loo  units  on  the  side  with  density  of  1.0  unit. 
The  "missile"  was  much  heavier,  with  a density  of  10  units,  and  was  given  a 
y-velocity  of  -40  units.  Joint  stiffnesses  were  10^  units  and  bulk  and 
shear  moduli  10^  units  also.  The  yield  stress  was  set  at  10'  units,  and 
joint  friction  coefficient  0.2.  Frames  2 to  lO  show  "snapshots"  of  the 


system  every  lOO  cycles  after  impact.  It  should  be  noted  that  the  two 
block  corners  of  initial  impact  were  initially  set  very  slightly  apart,  in 
order  to  allow  entry  for  the  missile. 

From  the  sequence  of  frames,  large  plastic  strains  can  be 
observed  in  some  of  the  blocks,  together  with  gross  joint  displacements. 
Although  it  may  not  be  obvious  from  the  pictures,  the  missile  is  being 
simultaneously  deflected  to  the  right,  and  slowed  down. 

Although  only  a simple  plasticity  .law  was  used  in  the  example, 
more  complex  formulations  with  non-associated  flow  rules  can  be  inserted 
into  the  program,  literally  in  a matter  of  minutes.  Such  formulations  are 
currently  being  used  extensively  in  continuum  finite  difference  procrams 
such  as  DAMSEL  (Cundall,  1976). 

For  interest,  Figure  3.6  shows  an  identical  run  as  Figure  3.5, 
but  performed  with  the  rigid  block  program  RBM . All  physical  constants  are 
the  same  (except  of  course  the  intact  elastic  and  plastic  properties)  and 
the  frames  are  plotted  at  the  same  time  intervals.  It  can  be  seen  that  the 
missile  is  slowed  down  almost  instantaneously  to  a very  low  velocity.  The 
momentum  is  transferred  to  the  blocks,  particularly  the  lower  row,  which  is 
propelled  downwards  at  high  speed.  The  simulation  was  stopped  after  Frame 
7,  since  one  of  the  lower  blocks  had  reached  the  limit  of  the  computation 
field  (box  area),  as  evidenced  by  the  "fix"  flag  that  has  been  attached  to 


it. 


It  should  be  noted  that  line  51  of  routine  UPDAT  (see  Appendix  nip 
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was  removed  for  the  purposes  of  this  run.  This  statement  deletes  the 
contact  if  the  normal  displacement  exceeds  3 units,  which  is  the  case  for 
the  present  simulation,  where  the  transient  forces  are  very  high. 

3.6.5  COMPARISON  OF  PROGRAM  SPEEDS 


It  is  difficult  to  compare  the  speed  of  the  new  program  SDEM  with 
the  old,  rigid-block  program  RBM,  since  the  run  times  depend  on  how  many 
contacts  exist,  how  large  the  blocks  are  compared  to  the  box  area,  and  how 
many  updates  are  done  during  the  run.  As  a rough  check,  both  programs  were 
run  on  the  Goodman  and  Bray  validation  problem  described  in  Section  2.5, 
using  300  time  steps.  During  this  time  RBM  did  13  updates  and  SDEM  did  21, 
due  to  the  higher  deformability  and  the  different  update  logic.  The  ratio 
of  executing  times  (excluding  problem  setup  and  printout)  was  1 to  1.6. 


. 
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3.7  CONCLUSIONS  AND  RECOMMENDATIONS 


A means  has  been  devised  to  give  the  blocks  of  the  distinct 
element  method  the  freedom  to  deform  in  simple  ways.  Although  the  tests 
pei formed  on  the  new  program  have  been  quite  limited  so  far,  the  results 
look  promising.  The  formulation  allows  large  displacements  within  blocks, 
so  that  large  plastic  flows  of  intact  material  could  be  modelled  together 
with  slip  on  complex  joint  sets.  No  change  has  been  made  to  the  scheme  of 
edge- to- corner  contacts  for  representing  joints  between  blocks  although  the 
scheme  described  in  Chapter  6 could  be  used.  The  new  program  SDEM  was 
found  to  be  slower  than  RUM  by  a ratio  of  1.6  to  1. 


The  new  program,  SDEM,  can  be  regarded  as  filling  the  gap  between 
the  original  distinct  element  method  and  the  general  lagrangian  scheme 
(with  re-zoning  of  sliding  contacts)  that  has  been  studied  in  Chapter  6.0. 
There  are  definite  limitations  to  program  SDEM  that  the  general  program 
will  not  have.  For  example,  there  seems  to  be  no  obvious  way  to  make  SDEM 
represent  a true  continuum  without  joints.  It  is  true  that,  in  the  limit 
of  very  stiff  joints  between  blocks,  the  behaviour  tends  to  th.it  of  a 
continuum,  but  this  is  achieved  only  at  the  expense  of  considerable 
computer  time,  since  the  time  step  is  forced  to  be  very  small  due  to  the 
joints.  Furthermore,  the  approximation  to  a continuum  is  only  good  tin 
triangular  blocks;  in  this  case  the  formula t ion  is  similar  to  that  of 
constant  strain  finite  elements  or  finite  difference  zones.  As  the  number 
ot  edges  increases  beyond  three,  t lit-  blocks  look  "stiffor"  because  t hey 
still  only  have  three  degrees  of  freedom  to  deform  even  though  tlieit  large 
number  of  edges  implies  that  they  should  have  a correspondingly  large 
number  of  degrees 


of  freedom. 


A useful  future  development  could  be  to  arrange  fo.t  block--  to 


have  the*  same  number  of  degrees  of  fre»*dom  as  the  tiumbet  of  edges.  In 
other  words,  a greater  number  ot  :-t  res:-  and  strain  terms  would  be  stored 
for  a block  with  many  edge:-  than  tor  a block  with  few  edges.  The 
additional  stress  and  strain  terms  could  be  derived  from  the  differential r 
of  stress  anil  strain  with  respect  to  the  spacial  co  ordinates.  Although 
this  proposed  formulation  wou id  tre.it  quasi-static  problems  11101  e 
realistically,  it  is  not  clear  whether  it  would  be  good  for  problems 
where  wave  propagation  was  important. 

This  section  presents,  only  the  initial  attempt  at  representing 
block  deformabi  1 ity . No  doubt  .is  the  topic  is.  explored  further,  better 
ideas  will  appear. 
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FIG.  3.2  STATIC  DEFORMATION  OF  A SINGLE  Bl  OCK  ON  A 
RIGID  TABLE.  THE  PLOTS  SHOW  THE  STATIC  EQUILIBRIUM 
POSITIONS  OF  THE  BLOCK  UNDER  VARIOUS  LOADS  AND 
MATERIAL  PROPERTIES  ALL  DEFORMATIONS  ARE 
REAL.  AND  NOT  MAGNIFIED 
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FIG  3.3  BLOCK  FALLING  ON  TO  PLANE 
FRICTION  ANGLE  IS  SLIGHTLY  HIGHER 
THAN  BLOCK  ANGLE 
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FIG  3 4 CONFIGURATION  OF  BLOCKS  USED  FOR  CONTINUUM  VALIDATION 
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! ._!  INTRODUCTION 

Tt  is  often  observed  that  cracking  of  intact  blocks  occurs 
during  laboratory  tests  oi.  jointed  models.  Presumably  the  same  sort 
of  thing  happens  in  Lite  field. 

Two  commonly-observed  behaviour-patterns  are:  cracking  of 
corners  and  cracking  across  a block  in  a manner  similar  to  that  of 
the  Brasilian  tent.  It  would  seem  that,  tin  realism  oi  the  rigid-block 
program  would  be  considerably  enhanced  it  simple  cracking  modes  could 
N allowed.  For  Lin  two  modes  mentioned,  even  raw  empirical  data  could 
be  used  as  the  criteria  for  clacking,  although  a number  of  algebraic  relations 
have  been  proposed  to  represent  the  result::',  from  tests-  such  as  the  point 
load  test  (Franklin  \ Broch)  . The  point  here  .is  that  it  is  probably  not 
necessary  to  go  to  sophisticated  laws,  requiring  much  computer  time,  in 
order  to  increase  the  realism  of  the  rigid  block  program  considerably . On 
the  conti  ir\  , it'  cracks  are  not  permitted,  the  modelling  of  many  problems 
is  rendered,  seriously  unrealistic,  since  "lock! ng-up"  occurs  when  only  small 
overlaps  exist  between  block  corners.  In  practice  these  corners  would 
break  off  at  relatively  low  loads,  ami  allow  the  l lock  motion  to  continue. 

Even  a crude  cracking  law  is  better  than  no  cracking  law.  In  any  event,  once 
cracking  is  permitted,  parameter  studies  may  be  made,  so  that  the  effect  of 
crack  criterion  on  overall  behaviour  can  be  determined. 

The  program  RBM  was  modified  to  allow  blocks  to  split  under  the 
action  of  applied  loads,  using  user-defined  etiteria.  The  new  program  wr 


written  in  -h  a wa\  that  alternative  crack  criteria  can  he  inserted 
easily  - a to  :-le ton  subroutine  provided  for  the  purpose.  In  this 

subroutine  me  user  is  given  a list  of  loads  that  are  currently  being 
applied  to  each  block,  together  with  their  location.  It  is  up  to  the 
user  to  determine  whether  a crack  will  form,  and,  if  so,  where  it  will 
form.  t’he  built-in  logic  then  splits  the  block  into  two,  and  carries 
out  the  \ar  us  housekeeping  tasks,  such  re-numbering,  re-boxing,  etc. 
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-1 . 2 CHANGES  TO  DATA  STRUCTURES 

It  was  necessary  to  make  several  changes  to  the  data  structures 
in  order  to  render  the  program  efficient  when  applying  the  crack  criterion 
and  during  the  creation  of  new  blocks.  The  major  changes  in  program 
logic  were  as  follows: 

• Both  edges  and  corners  are  mapped  into  boxes  (not  just  corners, 
as  in  RBM) . This  is  to  ensure  that  a newly-created  block  will 
be  guaranteed  of  finding  all  possible  nearby  blocks  by 
interrogating  the  boxes  that  it  maps  into. 

• Each  contact  is  pointed  to  by  both  blocks  concerned  (rather  than 
from  just  one  block  as  in  RBM) . The  reason  for  this  is  that  any 
crack  criterion  needs,  for  a given  block,  to  have  available  to  it 
all  the  contacts  involving  that  block. 

• Block  corners  are  stored  in  a circular  linked-list,  pointed  to  by 
the  data  for  the  block  concerned.  The  linked-list  format  was 
necessary  because  corners  would  have  to  be  re-allocated  to  new 
blocks,  as  blocks  cracked.  Edge  lengths  are  not  stored  now. 

• Updating  (i.e.  searching  for,  and  creating  new  contacts)  is  now 
done  locally,  for  each  corner  that  crosses  an  integer  boundary. 
This  was  made  possible  by  storing  the  global  coordinates  for 
corners,  rather  than  local.  Local  updating  should  be  more 
efficient  for  most  problems. 


t 
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The  detailed  changes  will  now  be  examined. 

4.2.1  FIXED  AREAS  OF  MEMORY 

The  new  program,  RBMC , now  has  only  two  fixed  areas  in  memory 
(see  Figure  4.1):  the  lower  area  contains  one  word  for  each  potential 
block.  These  words  point  to  the  data  array  for  each  block,  which  can  now 
be  anywhere  in  the  linked-list  area.  The  other  fixed  area  contains  one 
word  per  box,  with  each  word  being  a pointer  to  a list  of  blocks  that  map 
into  that  box. 

4.2.2  BLOCK  DATA  STRUCTURE 


Each  block  is  allocated  a basic  array  of  contiguous  data  as  well 
as  a variable-length  linked-list  containing  the  corner-coordinates.  This 
arrangement  is  shown  in  Figure  4.2,  which  also  gives  the  format  for  the  two 
data  structures.  At  the  start  of  a new  run  the  user  must  estimate  the 
total  number  of  blocks  that  are  likely  to  be  needed  during  the  run.  The 
area  of  memory  between  Ml  and  M2  is  allocated  on  the  basis  of  this 
estimate.  Although  the  maximum  number  of  blocks  must  be  specified  in 
advance,  any  number  of  corners  can  be  accommodated,  within  the  limits  of 
the  main  memory  area. 

4.2.3  BOX  ENTRIES 

Each  box  (which  corresponds  to  one  word  between  f i:  ' 


contains  either  zero,  indicating  that  no  blocks  map  into  it, 


90 


to  a linked-list  of  double  words.  The  list  gives  the  block  numbers  of  all 
blocks  that  map  into  that  box.  In  contrast  to  RBM,  corner  numbers  are  not 
stored,  since  both  corners  and  edges  cause  entries  to  be  deposited  into  the 
boxes  that  they  cross.  Figure  4.3  shows  the  scheme  of  box  entries. 


4.2.4  CONTACT  DATA 


As  mentioned  previously,  each  contact  is  pointed  to  by  both  blocks 
comprising  that  contact.  Word  14  of  the  block  data  array  (see  Figure  4.2) 
points  to  a linked-list  of  double-words  that  serve  as  pointers  to  all  the 
contacts  for  that  block.  Figure  4.4  shows  such  a list  pointing  to  several 
contacts.  Each  of  the  contacts  is  also  pointed  to  by  similar  lists 
emanating  from  the  other  blocks  involved  in  the  contacts.  Figure  4.4  also 
gives  the  format  of  a typical  contact  array.  It  will  be  noted  that  word  4 
contains  the  block  number  of  the  block  contributing  the  corner  to  the 
edge/corner  contact.  It  is  necessary  to  store  this  number  to  ensure  that 
during  scanning  for  contacts,  the  forces  due  to  each  contact  will  only  be 
taken  once.  This  is  done  as  follows:  if  all  blocks  are  scanned,  and  the 
corresponding  contact  lists  interrogated,  each  contact  will  be  accessed 
twice.  However,  if  the  identification  number  of  accessing  block  is  equal 
to  the  contents  of  word  4 of  the  contact  data,  the  contact  is  skipped  for 
the  purposes  of  updating  that  contact.  On  the  other  hand,  when  the 
accessing  block  number  is  not  equal  to  the  contents  of  word  4,  the  contact 
is  processed,  and  the  resulting  forces  added  into  the  force  sums  for  the 
two  blocks  concerned  (which  is  possible  because  now  both  block  numbers  are 


known)  . 
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1) 
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•1  . i INTRODUCTION  Ob'  CRACK  INTO  A BLOCK 

The  basic  assumptions  that  have  been  made  in  the  present  version 
ot  RBMC  are  t hat : 

i)  a crack  forms  instantaneously,  and  splits  the  block 
concerned  into  two; 

ii)  t lie  decision  to  create  a crack  in  a block  is  based  solely 
on  the  known  forces  acting  on  the  block. 

The  process  of  cracking  in  the  present  context  has  two  aspects, 
the  numerical  and  the  physical;  each  is  treated  separately  below. 

-I . l.J  NUMKRlCAh  ACbK.rjS  OJK  CRACK  INC. 

When  the  decision  is  nude  to  crack  a block,  the  following  sequunc 
of  events  occurs: 

(i)  The  two  contacts  (between  which  the  crack  will  extend)  are 
broken  (i.e.  the  forces  that  were  acting  vanish). 

(ii)  The  basic  data  array  and  pointer  for  one  new  block  is 


creat  «xi . 


(lii)  Korn  new  corners  .11  e created,  ami,  to.jethei  with  the 

existing  corners,  are  1 i nkod  up  to  totm  the  two  new  cornel 
lists  tot  the  two  blocks. 

(tv)  Ate. is,  musses,  moments  01  met  t t.i  and  centroids  .tie  oomput  ed 
tot  the  two  V'loeks,  and  wt  i t t ett  Into  t lie  nppropi into  data 
ut  t uys . 

(v)  font  ucts  (othet  t hun  those  thut  pt odueixi  the  .in.  k'  th.it 

existix!  around  the  simile  01  initial  block  ate  t t anst  el  t e.l  to 
one  .'t  other  of  the  two  teailtni.]  blocks.  The  contact 
tot  o's  ate  tetaiiie.i,  but  a 1 e numbet  i tin  an.t  te  linking  is 
necessat y . 

(vi)  box  entries  for  the  original  block  ,-it  e converted  to  box 
iMitri.es  tot  t ho  created  block  where  appropriate. 

t v i i > A new  pi  oh  lent  time-step  is  compute.!  tot  the  whole  array  of 

blocks . 

■ I . 1..'  l'HYMCAI.  Ahl'F.CTiy  OF  CRAi'KlNo 

Almost  any  criterion  for  crack imj  may  be  incorporated  in  the 
pt  out  am  with  littli-  ditficulty;  in  fact  several  schemes  may  be  used  togethoi 
The  description  that  (allows  corrosiponds  to  the  paiticulnt  scheme  that 
is  contained  within  RNMT  at  ptesent.  It  is  based  .mi  the  tensile  cracking 
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that  occurs  when  more  or  less  point  loads  are  applied  on  opposite  sides 
of  a rock  block.  In  its  ideal  form,  this  type  of  approach  constitutes 
the  "Brazilian  test"  (Fairhurst,  1964)  and  is  performed  with  a disc  of 
rock  loaded  between  flat  plattens.  More  generally,  many  "point  load  tests" 
have  beer,  performed  in  which  irregular  or  regular  blocks  of  rock  are 
loaded  between  two  indentors  that  may  have  small  radii  of  curvature. 

Such  tests  have  been  described  by  Franklin  & Broch  (1971) , Broch  & 

Franklin  (1972)  and  Brook  (1977),  and  are  characterised  by  a failure  load 
that  is  related  to  the  distance  between  the  points  of  application  of 
the  loads,  and  a "strength"  that  is  supposed  to  be  constant  for  a given 
material.  The  relationship  for  fracture  is: 


Where  h is  the  distance  between  applied  loads,  P; 

K is  a factor  that  depends  on  the  shape  of  the  block; 

S is  a rock  strength,  supposedly  constant. 

In  program  RBMC,  each  block  is  scanned  for  the  maximum  two 
forces,  and  P^  that  are  being  exerted  on  the  block  by  corners  from  other 
blocks  (the  forces  that  are  being  applied  by  the  edges  of  other  blocks  are 
not  taken  into  account) . The  average  is  then  taken,  divided  by  the 
distance  squared,  and  compared  to  a user-specified  "strength",  S':  i.e. 

no  crack 
formed . 


The  crack  is  rejected  if  either: 


(i)  d is  too  small  (<1  unit  at  present) 


(ii)  the  applied  forces  are  too  close  to  existing  corners 
(■>-2  units  at  present). 

Once  a crack  has  been 'accepted,  the  logic  described  in  Section 
•1.3.1  is  used  to  introduce  it  into  the  block  concerned. 

•1 . 3 ■ 3 USE  OK  ALTERNATIVE  OR  ITER  1 A_  KOK_  CRACK  INC. 

The  cracking  criterion  is  applied  in  subroutine  CRACK,  which 
is  called  for  each  block  at  every  time-step  if  there  are  two  or  more 
suitable  contacts  on  the  block.  The  user  has  available  to  him  a list  of 
those  contacts  that  correspond  to  corners  of  other  blocks  touching  the 
block  under  consideration.  It  is  up  to  the  user  to  decide  if  the  block 
will  crack,  and  if  so,  which  two  contacts  are  involved.  He  then  passes 
the  addresses  of  these  two  contacts  to  subroutine  SPLIT,  which  deals  with 
the  housekeeping  tasks  necessary  to  form  the  crack. 

The  list  of  contacts  referred  to  above  is  available  to  the  user 
as  a simple  array  in  free  memory,  and  takes  the  form  of  a set  of  pointers 
to  the  relevant  contacts.  The  first  pointer  is  contained  in  location 
NKMPTG  in  the  array  A,  and  the  last  pointer  is  contained  in  location  NEMTT . 
Access  may  be  made  to  any  of  the  data  stored  for  each  contact  (the  format 


is  given  in  Eigure  4.4). 
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If  it  has  been  established  that  a crack  will  be  formed,  the 
pointers  to  tho  two  contacts  involved  must  then  be  passed  to  subroutine 
SPLIT,  as  follows: 

CALL  SPLIT  (ICl , IC2) , 

Where  ICl,  IC2  are  the  addresses  of  the  two  contact  data 
arrays. 
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4.4  USE  OF  PROGRAM 


Program  RBMC  is  used  in  the  same  way  as  RHM,  with  almost  the 
same  set  of  commands.  However,  density  is  now  a global  variable,  and  is 
specified  when  setting  up  a new  problem.  The  "strength",  S,  described 
in  Section  4.3.2  is  also  specified  in  the  same  way.  Consequently  the 
following  commands  are  now  added  to  those  of  data  set  number  1: 

DENSITY  RHO  Defines  the  density  for  all 

blocks  (A10,F10.0) 

T STRENGTH  S Defines  the  cracking  "Strength" 

S,  described  in  Section  4.3.2 
(A10.F10.0) 

The  create  command  in  data  set  number  2 has  been  changed  slightly 
to  eliminate  the  specification  of  density: 


CREATE  NC.IFIX  (AlO,2IlO)  Creates  a block  with  NC 

corners.  IFIX  t 0 for  a fixed  block. 
This  command  is  followed  in  the 
usual  way  by  a list  oi  corner 
coordinates . 


Apart  from  these  changes,  the  input  stream  is  identical  to 
that  for  RHM. 


The  output  format  is  also  very  similar,  except  that  the  program 
prints  a message  informing  the  user  whenever  a crack  occurs.  The  coordinates 
of  the  crack  are  printed,  together  with  the  new  time-step  if  this  differs 


from  the  old  time-step. 
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•1 . 5 EXAMPLE  RUNS 


It  was  not  within  the  scope  of  the  present  study  to  perform 
extensive  val  Stations  on  the  program;  rather,  the  object  of  the  example 
runs  was  to  verify  that  the  modified  logic  worked  as  intended. 

•1.5.1  NON-CRACKING  TESTS 


Validations  5 and  6 described  in  Chapter  (block  on  plane; 
Goodman  & Bray  toppling)  were  run  using  RBMC  with  a high  strength  in 
o der  to  inhibit  cracking.  Identical  results  were  obtained,  showing  that 
the  translation  from  local  t o global  coordinates  was  correct,  and  that 
the  modified  boxing  and  u piloting  logic  was  working. 

•1.5. TEST  1 : '-BUXT  PROBLEM 


Figure  -1.5  shows  a case  in  which  a single  crack  is  induced  in 
a block  loaded  above  and  below  by  wedge-shaped  blocks.  The  lower  block 
is  fixed,  and  the  other  two  blocks  are  acted  on  by  gravity,  with  the 
system  starting  from  the  state  shown  with  zero  velocity.  The  subsequent 
movements  of  the  blocks  are  shown  for  four  values  of  the  coefficient  of 
friction. 

4.5.3  TEST  2:  7-BLCXTK  PROBLEM 


This  test  is  more  complex  and  provides  a searching  test  of  the 


logic  concerned  with  cracking,  contact  detection,  re-linking  lists  and 


i e-box  in  j ent  t it's. 


The  pile  of  block. s shown  in  I t 1 ol  Fiqutu  •!.(> 


are  suddenly  acted  on  by  gravity  from  an  initial  state  of  zero  velocity. 
The  "rock"  has  very  low  strength,  so  that  t he  subsequent  t lames  (Ki-is. 
■l.e  s.  4.7)  show  the  ends  of  t lie  blocks  breaking  off,  and  then  secondary 
and  tertiary  fractures  as  these  pieces  strike  othei  clocks.  The 
properties  for  the  run  were  as  follows: 


Density : 

"Strength",  S: 

Mass  of  largest  block 
Gravi t y 

Contact  Stiffnesses 
Damping 

( st i 1 f ness-proport icna 1 ) 

Coefficient  of  friction 

Fraction  of  critical 
t imestep 


1 .0 
100.0 
oOOO.O 
-10.0 
1 .O  x lO 

O..'1'  at  frequency  *0.0 

0. 7 

O.  1 


Frames  l through  lO  are  plotted  at  4iV>  cycle  intervals,  and  f i ante 
11  through  IS  are  at  dOO  cycle  intervals,  since  the  time-step  was  i educed 
when  the  tiny  block  was  created  in  frame  lO. 


- loo  - 

•S.t>  CONCLUS  IONS 

Tht'  data  structures  and  Inter  nal  housekeepi  ng  logic  ot  RBM 
have  boon  changed  cons,  idol  ably  to  allow  cracks  tv'  tori'.  act. so  block  . 

After  a block  has  cracked,  the  two  icsnltin-j  [\u  ts  become  independent 
blocks,  which  can  then  interact  with  other  blocks  in  the  normal  way, 
and  subsequently  crack  again  should  conditions  permit.  Although  only 
a simple  criterion  for  crack  formation  has  been  tried  so  tar,  the 
program  is  written  in  a way  that  makes  the  incor porat ion  ot  alternative 
criteria  a simple  matter.  The  type  of  cracking  that  is  permitted  at 
present  corresponds  to  fractures  of  the  type  observed  in  point-load  tests. 


Corner-cracking,  in  which  a single  torce  near  a corner  causes  t h. 
cornel  t o break,  has  been  discussed  but  not  implemented.  It  appears  that 
the  present  scheme  may  not  be  the  best  way  to  overcome  the  problem  of 
"locking-up"  caused  by  very  si ight  overlap  of  block  corners.  The  argument 
runs  as  follows:  the  "strength"  of  a cornet  will  reduce  as  the  overlap 
decreases. 

overlap 

possible  crack  path  -c.  T 



1 

Consequently  even  an  infinitesimal  overlap  will  cause  a crack  tv' 
form,  since  the  force  required  will  be  vanishingly  small.  An  initially 
sharp-cornered  block  will  acquire  several  very  small  extra  faees  that  will 


- loi  - 

increase  the  comput at  ion  time  considerably,  but  will  hardly  modify  tin- 
subsequent  physical  performance  of  the  block.  The  extra  luces  will  not 
even  guarantee  that  close  encounteis  with  tuture  cot  tiers  will  be  tiouble- 
free,  since  additional  tiny  chips  may  break  oft,  in  view  ot  the  vety 
small  trength  noted  earlier.  It  may  be  better  to  consider  other  ways 
of  overcoming  th.<-  "locking-up"  problem  that  are  ph.ysioally  equivalent  t. 
corners  breaking,  but  do  not  carry  the  high  computat ional  overhead  involved 
In  creating  new  faces.  For  e\  imp: . corner- to-cornei  contacts  could  be 
made  especially  deformable,  so  • hut  two  corners  would  literal .y  "dot. tm 

I 

through"  each  othet  it  the  driving  force  were  high  enough.  Kven  though 
such  schemes  would  require  more  development  work,  the  program  R BMC ' will 
provide  a good  starting-point,  since  the  data  structures  are  arranged  in 
a much  more  convenient  way  than  RBM . 


ARE A OF  MEMORY 
CONTAINING  l ISTS  OF 
CORNE  R DATA,  BOX 
f N TRIES,  BLOCK  DATA, 
CONTACTS  AND  CONTACT 
DATA 


BOX  POINTERS 


HI  OCK  POINTERS 


FIG.  4.1  MEMORY  ALLOCATION  FOR  DATA  LISTS 
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A literature  survey  is  presented  on  the 
vein dt a from  laboratory  and  field  t,st s 
on  reek  joints.  The  information  from 
the  suroey  is  used  to  develop  a sirqde 
constitutive  law  for  rock  joints. 
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‘j.  1 INTRODUCTION 


Rock  joints  .ire  surprisingly  complex.  They  dilute  and  contract 
with  shearing;  their  apparent  coefficient  of  friction  changes  drastically 
with  normal  st toss  and  with  the  history  of  shearing  displacements;  their 
behaviour  is  sensitive  to  any  filling  material,  and  whether  or  not  it 
squeezes  out  during  shearing.  Any  constitutive  law  must  take  account  of 
these  effects  if  it  is  to  be  realistic. 

A bibliography  has  been  assembled  on  rock  joints,  and  covers 
laboratory  tests,  field  tests  and  theories  of  behaviour.  A t ew  references 
have  also  been  included  on  numerical  and  physical  models  of  jointed  rock. 

The  next  section  highlights  some  of  the  results  from  the  literature  and 
demonstrates  the  range  of  behaviour  that  is  exhibited  by  rock  joints. 

Based  on  this  information,  a simple  constitutive  law  for  joints  is  developed. 

Thi'  papers  referred  to  in  the  next  section  are  located  in  the 
bibliography  of  Appendix  11,  and  selected  plots  from  these  papers  are 


reproduced  at  the  end  of  this  Chapter. 


Ill 
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.2  LITERATURE  SURVEY 


Poro  water,  surface  roughness,  normal  stress,  degree  of 
weathering,  joint  infilling,  joint  orientation,  joint  spacing,  normal 
stress  and  rate  of  shearing  all  affect  the  behaviour  of  jointed  rocks. 

Rock  joint  properties  under  a variety  of  conditions  have  been 
measured.  For  example,  I ida  (1974)  ran  insitu  loading  tests  on  a jointed 
rock  foundation  and  compared  the  recorded  strains  with  strains  obtained 
from  elasticity  equations  (see  Figure  5.1).  Krsmanovic  and  Popovic  (196ba) 
studied  the  insitu  behaviour  of  fissured  limestone  with  various  degrees  of 
joint  infilling.  Gale  (1975)  studied  fracture  flow  in  deformable  rocks  and 
and  found  that  injection  and  withdrawal  are  non-reversible  processes,  which 
implies  that  there  must  be  hysteresis  in  the  normal  direction  of  loading. 

Direct  shear  with  controlled  normal  loads  and  triaxial  compression 
are  two  of  the  most  common  tests  used  to  study  jointed  rock  properties. 

Shear  stress  vs.  shear  displacement,  and  normal  displacement  vs.  shear 
displacements  are  typically  recorded  during  a direct  shear  test  (see  Figure 
5.2).  Repeated  loadings  and  unloadings  may  be  prescribed  and  the  normal 
lead  may  be  changed  several  times  during  the  test  (see  Figure  5.2).  During 
triaxial  compression  tests,  the  principal  stresses  vs.  axial  displacement 
are  recorded  (see  Figure  5.3).  Pore  pressure  measurements  may  be  recorded 


during  both  shear  and  compression  tests. 


Triaxial  failure  envelopes  may  be  lineai  oi  curvilmeai  (see 
Figure  ‘>,4).  Jaeger  (1959)  found  dry  granitic  gneiss  to  give  reasonably 
linear  failure  envelopes  and  yet  when  the  samples  were  soaked  m watei  just 
pr tot  to  testing,  the  failure  envelopes  usually  showed  considerable 
curvature. 

Some  rooks  dilate  linearly  dating  extensive  sheut ing  but  commonly 
compact  initially  (see  Figure  ‘>.5).  Martin  and  Millar  (1974)  reversed  the 
shearing  direction  in  the  middle  of  direct  shear  tests  and  found  the 
greywaeke  samples  first  to  contract  and  then  to  dilate  (see  Figure  l».i>). 

Shear  stress  vs.  shear  displacement  curves  generally  tall  into 
two  classif icat ions.  Some  jointed  rocks  are  stitt  during  initial  shearing, 
reach  a peak  value  of  sheai  strength  which  then  drops  oil  rapidly,  and 
finally  taper  off  in  strength  to  some  residual  value  (see  Figure  5. 7.0. 

Others  exhibit  elastic  behaviour  during  initial  shearing  and  then  behave 
more  or  less  plastically  with  little  or  no  distinct  peak  (see  Figure  >.  'hi . 
The  slope  of  the  elastic  portion  ot  stress-displacement  curves  has  been 
designated  by  Goodman,  Taylor  and  hrekke  (1969)  as  the  sheai  stillness. 

For  example,  the  shear  stiffness  ot  garnet  schist  with  guart.’  beds  (see 
Figure  ‘>.7)  equals  lO.  IMN  iti'cui.  Values  obtained  from  various  sheai  tests 
are  tabulated  in  Table  5.1.  Tile  type  ot  stress-displacement  curve  is  greatly 
influenced  by  the  shear  surface  roughness  and  the  joint  infilling  properties 


L 


... 


f the  joint. 


For  example,  Krsmatiovie,  Tufo,  and  1 .ingot  (l^eebi  found 
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I'fak  shear  strength 
ot  uvt  ivo  normal  stress 
joint  roughness  coefficient 

eftective  joint  wall  compressive  stiength 
base  t i ict ion  angle 


Schneider  1197-1)  sheared  plastei  samples  cast  from  granite, 
limestone,  and  sandstone  samples.  Dilation  curves,  shear  st ress-sheui 
displacement  curves,  and  sheat  stress-normal  stress  curves  tor  t tie 
throe  surface  types  vary  considerably  (see  Figure  ‘>.11).  These  results  are 
interesting  because  they  show  tiow  the  roughness  alone  affects  the  behaviour, 
toi  identical  intact  material  strength.  (See  Figure  S.l  '0. 


Patton  (ldoba)  recognised  that  two  scales  ot  roughness  govern  the 
shorn  behaviour  of  rocks  tsee  Figure  ‘>.14).  The  behaviour  during  small 
displacement s and  the  large  second  order  irregularities  govern  the  shearing 
bohaviout  tor  large  displacements. 

In  general  it  can  be  said  that  -it  low  normal  loads , the  behaviour 
Ot  the  loint  will  be  influenced  by  the  highest-angle  (smallest)  asperities 
while  -it  highei  normal  stiesses,  these  asperities  will  be  sheared  oft,  so 
th.it  t he  l on. let  , 1-*.  t - ang  l e asperities  will  be  t ho  mi  jor  inf  1 uenc  e . 1 h i ;> 

typo  ot  hehavioui  must  bo  reoognisod  by  any  constitutive  law  toi  joints. 
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• . 3 CONST  ITUT I Vi:  I AVIS 


The  preceding  discussion  has  shown  that  joint  roughness  plays 
a major  part  in  the  mechanical  behaviour  of  joints.  However,  roughness 
is  not  a constant  attribute,  and  account  must  be  taken  of  the  effects 
that  changes  in  roughness  produce,  due  to  asperities  being  worn  down 
or  destroyed. 


5.3.1  MECHANICS  OF  AN  IDEALISED  JOINT 


As  a i^eliminary  to  the  development  of  a constitutive  law, 

£ 

nsidei  the  mechanics  of  a simplified  joint,  with  a single  wavelength 
of  asperity;  and  its  idealised  stress/displacement  curve  for  a given 
normal  load: 


I 
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SHEAR  DISPLACEMENT 


The  various  parts  of  the  curve  may  be  identified  with  the  following 
mechanisms : 


A.  elastic  straining  - no  slip 


B.  sliding  up  on  asperities  - apparent 


friction  angle  = cp  + i , where 

= basic  friction  angle  of  the  material 


C.  shearing  off  of  asperity- tops 


Clearly,  a real  joint  is  made  up  of  many  sizes  of  asperity,  so 
th  the  resultant  stress/displacement  curve  is  more  or  loss  a summation 
of  many  basic  curves: 


MANY  COMPONENT 
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1)  Tho  peaks  (or  "bumps")  on  shear  stress/displacement 
curves  are  caused  by  asperit ies. 

.’)  Shearing  removes  asperities  and  causes  damage  to  the 
joint  surface. 

1)  The  damage  is  great.ei  for  greater  O (normal  stress) 

n 

and  for  increasing  U (shear  displacement). 

•1)  If  a joint  is  sheared  at  very  low  O , it  will  be 

n 

almost  undamaged;  consequently,  its  subsequent  shearing 

behaviour  for  high  O will  hardly  be  affected,  except 

n 

that  the  shear  stress/displacement  curve  will  be  displaced 

Ix'dily  by  the  amount  of  low-O  shearing.  (This  ignores 

n 

the  possibility  that  mating  joints  become  non-mating.) 

These  points  lead  to  the  concept  of  a variable,  P,  that  accumulates 
the  damage  done  to  the  asperities  during  shearing.  Clearly  there  is  no 
unique  way  to  define  D,  since  it  is  an  approximate  measure  anyway,  but  as  a 
first  attempt,  consider  the  following  expression: 

D = S O All  , where 
n s 

the  sum  is  performed  for  all  loading  increments  during  which  the  shear  stress 
is  a Ixa vo  the  residual. 


— 


- 1 l't  - 


I 

! 


This  expression  satisfies  the  obvious  conditions  that  0 must 
vanish  for  either  O it  ot  All  O.  It  may  be  normalised  it  necessary  t o 
the  range  O.O^U^l.O  by  dividing  by  the  maximum  normal  stress  times  the 
maximum  shear  diplacement  for  residual  strength  under  that  normal  stress: 

E O AU 

D -n-  — 3 

, ( 1 c s ) (max) 

o u 

n s 

The  main  utility  of  D is  that  it  allows  the  damage  done  at  one 
value  ot  normal  stress  to  be  carried  over  and  used  as  a basis  for  subsequent 
shearing  at  a different  normal  stress.  This  is  done  by  shifting  the  shear 
stress/displacement  curve  over  until  its  value  of  I)  (i.o.  the  value  of  D 
that  would  have  obtained  from  shearing  at  constant  O^)  equals  the  current 
accumulated  D.  The  shear  stress/displacement  cuive  referred  to  above  is 
actually  that  part  ot  the  full  curve  that  lies  above  the  residual-strength 
part:  i.e.  only  the  "bump"  ot  the  tull  curve  is  stored,  for  the  purpose  ot 

computat ion. 


all 


It  is  the  "bump"  that  reflects  the  effects  ot 
asperities  have  been  removed,  only  the  basic  curve. 


t he  aspet  i t ios; 
( 1 ) , rema i ns . 


at  t et 


120  - 


5.3.3  DETAILS  OF  CONSTITUTIVE  LAW 

In  simplified  form  the  proposed  constitutive  law  for  joints  can  be 
represented  by  the  flow  diagram  on  the  following  page.  Note  that  the  consti- 
tutive law  works  from  displacements  to  stresses : 


shear  and  normal 
displacement  increments 


shear  and  normal 
stresses 


5.3.4  DILATION 

Dilation  is  assumed  to  occur  whenever  damage  is  accumulated, 
according  to  some  user-defined  law.  In  general,  the  dilation  angle  is 
related  inversely  to  the  normal  stress: 

« d 

DILATION 
ANGLE 

o-„ 


Since,  in  the  explicit  method,  both  displacements  and  are 
iven,  the  dilation  must  be  expressed  as  an  equivalent  increase  in  normal 


stress.  This  may  be  done  as  follows: 


3 = I— A AUd  , 

n J n 


n is  the  current  normal  joint  stiffness 


AU  is  the  incremental  normal  displacement 

n 

due  to  dilation 


In  the  plots  given  later,  the  dilation  is  shown  directly  as  AU^  , 
but  in  use  the  constitutive  law  would  use  this  displacement  to  modify  O 


according  to  the  expression  above. 


The  actual  dilation  law  built  into  the  program  is  based  on 
Figure  5.12  (from  Barton,  1071)  and  is  given  by: 


tan  0 


AU  i O 

( _ n 1 (jcs) 

d " Ail  ) O 

s i n 


1 ! kJ 


k,  is  the  "dilation  constant"  and  is  prescribed  by 
d 

the  user 


CJ , . . is  joint  compressive  strength 

(jcs) 


AU  is  the  virtual  normal  displacement  due  to  dilation 
n 


La 


*3,  is  tho  dilation  aiujle. 
0 


is  only  accumulated  during  periods  when  "damage", 


Dilation,  UV 
n 

D,  is  being  accumulated. 


COMPUTER  PROGRAM  FOR  CONSTITUTIVE  UAW 


The  steps  described  above  have  been  embodied  in  a computer 
subroutine,  JOINT,  which  is  listed  m Appendix  XV.  The  program  is  guite 
simple  and  is  probably  easier  to  follow  than  a written  description  of  the 
procedure.  All  important  variables  are  defined  in  the  listing,  but  the 
following  notes  should  be  consulted  before  trying  to  understand  the  program 

1)  The  program  is  written  in  terms  of  normalised 
displacements  and  stresses. 

"Real"  stresses  may  be  obtained  by  multiplying 

output  stresses  by  O . , where  O . is 
1 (jcs)’  (JCS) 

Barton's  "joint  compressive  strength". 

"Real"  displacements  are  obtained  by  multiplying 

...  . (max)  . (max) 

internal  displacements  by  U , where  U is 

the  shear  displacement  at  which  the  shear  stress 

drops  to  residual  for  a test  performed  for  O O . . 

n (jcs) 

.))  The  basic  curve  for  the  "bump"  on  the  shear 

stress/displacement  curve  is  built  into  function  FUR 

as  a DATA  statement.  It  comprises  10  intervals,  with 

maximum  value  ot  1.0  units,  but  is  subsequently  scaled 

according  to  O using  Barton's  law  (see  note  J) . 
n 
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J)  The  peak  shear  strength  is  given  by  Barton's 


equation: 


T = tan  | JRC  log^  ^ 


°»  * b J 


l see  Section  ‘j.2) 


It  should  be  remembered  that  ls  in  degrees. 
JRC  is  input  to  the  program  via  common  block 


FRIC/. 


Any  other  law  can  be  substituted  in  KSS  it 


desired. 


4)  The  shear  displacement  at  which  the  shear  stress 

falls  to  residual  is  adjusted  according  to  the  law: 


K O , 
n 


where  K = 1.0  at  present. 
Any  other  law  may  be  substituted. 


5)  At  present  dilation  is  not  coupled  up  in  such  a way 

as  to  modify  O (see  Section  S.3.4),  purely  for 
n 

purposes  of  presentation  of  test  results.  The  virtual 
normal  displacement  due  to  dilation  (UND(JID))  is 
computed  internally,  but  not  used,  except  for  display. 


o)  The  normal  stress/di splacement  function  at  present 

ia  linear,  and  is  evaluated  in  Function  FSN . Another 
law  may  be  substituted. 

!)  The  normal  stress  must  lie  in  the  range  0. 0 1.0, 

otherwise  errors  will  occur.  No  traps  have  been 

incorporated.  Also  inaccurate  results  may  be  expected 

for  O close  to  .ter o. 
n 

8)  The  dimension  of  50  refers  to  the  number  of  joints 

that  can  be  handled  --  JOINT  lias  to  remember  stresses, 
displacements  and  damage  for  each  joint. 

'.  <.e  EXAMPLE  RUNS  WITH  SUBROUTINE  JOINT 

The  following  parameters  were  used  in  all  example  runs: 

10^  - 50°  basic  friction  angle 

k 1.0  initial  shear  stiffness 

s 

k 1.0  normal  stiffness 

n 

k,  0.1  dilation  constant 

ki 

JRC  t'O  joint  roughness  coefficient 

As  mentioned  earlier,  the  basic  shear  stress/displacement  curve 


was  built  into  the  program  in  a DATA  statement  in  Function  FSS.  The 
listing  should  be  consulted  tor  the  values  that  were  used. 


h 
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5.4  CONCLUSIONS 


A first  attempt  has  been  made  to  develop  a constitutive  law 
that  will  handle  the  complex  loading  paths  that  occur  when  running 
computer  simulations  of  jointed  rock  behaviour.  Although  tlie  results 
look  plausible,  there  is  not  sufficient  experimental  data  Irom  tests 
with  complex  paths  to  check  the  assumptions  made.  More  data  is  needed 
for  cases  where  normal  stresses  are  varying  during  a test  in  which  shear 
displacement  follows  a time  history  with  repeated  reversals. 

The  concept  of  "damage"  is  thought  to  be  promising,  and  it  is 
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(AFTER  IIDA,  HOJO  AND  HARADA.  1974) 
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2 69(MN/m2) 


MIFERMA  SAMPLE  NC  4 

GARNET  SCHIST  WITH  QUARTZ  BEDS 
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RATE  OF  DISPLACEMENT  25mm. /HOUR 
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(mm  ) 


DILATION  (mm) 


COMPACTION 


FIG.  5.2  DIRECT  SHEAR  TEST  DATA  (AFTER  KUTTER.  1974) 
NOTE  CHANGES  IN  NORMAL  LOAD  DURING  THE  TEST 
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FIG.  5.3  TRIAXIAL  TEST  DATA  FROM  CLOSELY  JOINTED 
PANGUNA  ANDESITE.  ALL  STRESSES  VALUED  ARE  IN  PSI 
(AFTER  JAEGER.  1970) 
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fig.  s 4 a shear  stress  versus  normal  stress  for 

FRACTURED  GRANITE  SPECIMENS  FAILED  IN 
TRIAXIAL  COMPRESSION  TESTS 
(AFTER  BYERLEE.  1967) 


FIG.  S.4B  SHEAR  STRESS  VERSUS  NORMAL  STRESS  FOR 
6 INCH  CORES  OF  CLOSELY  JOINTED  PANGUN  A ANDESITE 
(AFTER  JAEGER.  1970) 

□ AM»  s Mooni 


VERTICAL  DISPLACEMENT  <s  (mm  ) 


25 


/ 


1 1 1 1 1 1 ' 

0 5 10  15  20  25  50  7 5 

HORIZONTAL  DISPLACEMENT  dH  (mm) 


FIG.  5.5DILATI0N  CURVES  FOR  DARLEY  DALE 
SANDSTONE  ( AFTER  KUTTER.  1974) 
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FIG.  5.6  DIRECT  SHEAR  DATA  ON  WEATHERED  C.REYWACKE 
(AFTER  MARTIN  AND  MILLAR.  1974) 

NOTE  THE  CHANGE  IN  THE  DILATION  UPON  REVERSAL 
OF  THE  SHEARING  DIRECTION 
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FIG.  5.7  DIRECT  SHEAR  DATA  (AFTER  KUTTER.  1975) 


FIG.  5.8A  DIRECT  SHEAR  DATA  ON  FISSURED  LIMESTONE. 
WITH  NO  FILLING  MATERIAL 
(AFTER  KRSMANOVIC,  TUTO  AND  LANGOF.  1966) 
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FIG.  5.8B  DIRECT  SHEAR  DATA  ON  FISSURED  LIMESTONE. 
WITH  CLAYEY  INFILLING  MATERIAL 
(AFTER  KRSMANOVIC.  TUTO  AND  LANGOF.  1966) 
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FIG  :>  :>  VARIATION  OF  FRICTIONAL  FORCE  WITH  DISPLACEMENT 
AND  WI1H  WEAR  FOR  A SURFACE  OF  TENSILE  FRACTURE  IN 
HOWRAL  TRACHYTE  AREA  5.2  SO  IN  NORMAL  LOAD 
1J50  LB  NUMBERS  ON  CURVES  INDICATE  THE  TEST  NUMBER 
(AFTER  JAEGER.  197  1) 
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FIG.  5.  1 0 MODIFICATION  OF  SHEAR  STRESS  SHEAR 
DISPLACEMENT  CURVES  BY  RESHEARING  THE  SAMPLE 
(AFTER  KUTTER.  1974) 
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FIG.  5-11  MULTIPLE  MODES  OF  SHEAR  FAILURE  IN 
PLASTER  MODELS  SHEARED  ACROSS  PLANES 
HAVING  TEETH  OF  VARIOUS  INCLINATIONS 
AND  FREQUENCIES 
(AFTER  PATTON.  19661 
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FIG.  5.12  PEAK  Dll  AT  ANCY  ANGLE  (■)  AS  A FUNCTION  OF 
THE  RATIO  OF  NORMAL  STRESS  TO  COMPRESSIVE 
STRENGTH  FOR  MODEL  EXTENSION  JOINTS  (AFTER  BARTON.  1971) 
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FIG.  5 1 3 A PROFILES  OF  SURFACE  GEOMETRIES  OF  JOINTS 
CAUSED  BY  TENSION  IN  GRANITE  (A)  SANDSTONE  (B) 

AND  LIMESTONE  (C) 

(AFTER  SCHNEIDER.  1974) 


FIG.  5.13B  DILATION  CURVES  OF  THE  FRICTION  MODEL  TESTS 
WITH  PLASTER  CASTS  OF  GRANITE  (A)  SANDSTONE  (B) 
AND  LIMESTONE  (C)  SURFACE  GEOMETRIES 
(AFTER  SCHNEIDER.  1974) 
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FIG  5.13C  STRESS  STRAIN  CURVES  OF  FRICTION  TESTS  ON  MODELS  WITH 
°L ASTER  CASTS  OF  GRANITE  (A)  SANDSTONE  (B ) 

AND  LIMESTONE  (C)  JOINT  FRAGMENTS 
'AFTER  SCHNEIDER.  1974) 


FIG.  5.13D  SHEAR  STRESS  NORMAL  STRESS  DIAGRAMS  OF  FRICTION 
TESTS  ON  MODELS  WITH  SURFACE  GEOMETRIES  OF  GRANITE  (A) 
SANDSTONE  (B)  AND  LIMESTONE  (C) 

(AFTER  SCHNEIDER.  1974) 
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5.14  FIRST  AND  SECOND  ORDER  IRREGULARITIES 
(AFTER  PATTON.  1966) 
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FIG.  5.16  RUN  2 JOINT  CONSTITUTIVE  LAW 
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FIG.  5.19  RUN  5 JOINT  CONSTITUTIVE  LAW 


CHAPTER  6:  FULLY- DEFORMABLE  Bl  OCKS 

6.0  A new  approach  is  described  that  could  model 
accurately  both  continua  as  well  as  dis- 
continua.  The  method  is  assessed  with  the 
aid  of  a simple  "test-bed"  program. 

Several  examples  and  validations  are 
presented. 


t>.  1 INTRODUCTION 


o.l.l  CKNKRAL  APPROACH 

The  method  presented  in  this  chapter  is  very  general  in  that  it 
can  be  applied  to  problems  ranging  from  deformable  continua  to  rigid  or 
deformable  discontinua.  Computer  programs  dealing  with  deformable  continua 
or  rigid  discontinua  were  already  commercially  available  at  the  time  of 
undertaking  this  project,  but  the  generality  of  programs  for  analysis  of 
fully  deformable  discontinua  was  very  limited.  The  object  of  the  present 
work  was  to  investigate  a method  general  enough  to  handle  continua  and 
discontinua  as  particular  cases,  but  especially  oriented  to  the  solution  of 
problems  concerning  deformable  discontinua.  In  particular,  the  resulting 
computer  program  should  bo  able  to  examine  the  interaction  of  arbitrary 
arrays  of  blocks  with  arbitrary  laws  governing  the  behaviour  of  the  intact 
material  and  the  interaction  across  discontinuities. 

However,  it  must  be  made  clear  that  the  program  described  in  this 
Chapter  is  not  an  end  product.  It  is  rather  the  result  of  a first  phase  of 
work.  The  purpose  of  this  phase  was  the  validation  of  the  numerical 
approaches  proposed  for  handling  each  of  the  problems  arising  in  the 
analysis  of  deformable  discontinua.  The  different  assumptions  are 
individually  examined  and  validated  in  the  following  sections.  Consequently, 
the  program  is  not  general  in  the  sense  that  it  is  not  provided  with 
sophisticated  input/output  capabilities,  and  no  special  effort  has  yet  been 
performed  to  optimise  the  data  structure  and  the  coding  in  order  to  reduce 
the  computer  time  to  a minimum.  The  program  constitutes  the  "test-bed"  for 
what  is  intended  to  become  in  the  future  a general  user-oriented  program. 
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The  first  application  envisaged  for  the  program  will  be  the 
maylsis  of  jointed  rock  masses  at  large  depths  subjected  to  high  transient 
loads.  by  large  depth  it  is  understood  here  to  be  the  depth  at  which  the 
behaviour  of  a rock  mass  cannot  be  determined  from  the  knowledge  of  its 
discontinuities  alone.  That  is  to  say,  the  magnitude  of  the  confining 
pressure  or  transient  loads  are  so  high  that  displacements  arising  from 
deformation  of  intact  rock  blocks  are  not  neg\ tgible  compared  to  those 
generated  by  rigid  body  movements  of  the  block-.  This  situation  appears 
when  plastif ication  of  the  intact  rock  is  likeiy  to  occur;  the  minimum 
depth  required  for  such  phenomenon  is  a direct  function  of  the  mechanical 
characteristics  of  the  intact  rock  material. 

6.1.2  SUMMARY  OF  THE  METHOD 


The  system  represented  by  the  program  is  that  of  a set  of 
deformable  blocks.  Each  block  is  decomposed  into  constant-strain 
triangular  elements  and  modelled  as  a continuum. 

The  continuum  part  of  the  program  is  a two-dimensional,  finite- 
difference,  explicit,  large-deformation,  Lagrangian  code  using  triangular 
zones,  and  is  based  on  the  work  of  Wilkins  (1969).  Differences  are  central 
in  time  and  space,  and  plane  strain  conditions  are  assumed.  The  general 
logic  is  the  usual:  in  each  time  step,  a)  stresses  are  integrated  about 
grid  points  to  provide  forces  and  hence  accelerations,  velocities  and 
displacements;  b)  strains  are  obtained  from  displacements,  and  stresses 
from  strains,  by  using  the  constitutive  relations. 
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The  novelty  of  the  program  lies  in  the  treatment  of  contacts 
between  blocks.  When  a node  N from  a given  block  contacts  any  other  block, 
a new  node  N'  is  created  at  the  contact  point  and  the  contacted  triangle 
is  decomposed  into  two.  This  procedure  allows  the  use  of  practically 
the  same  treatment  for  contacts  and  continua,  since  in  both  cases  a 
constitutive  law  is  used  to  link  grid-points.  The  only  difference  is 
that  three  grid-points  are  used  for  a continuum  element,  while  two  grid- 
points  delimit  a joint,  with  the  constitutive  law  for  the  joint  in  between. 

As  the  node  N slides  on  the  surface  of  the  other  block,  the  node  N'  created 
at  the  contact  is  repositioned  to  follow  N;  in  this  manner,  the  interactive 
forces  are  always  transmitted  through  mass  points  and  felt  as  accelerations. 

At  present  the  force-displacement  relations  for  the  contact  are  a bilinear/ 
rigid  law  in  the  normal  direction  and  an  elastoplastic  one  in  the  tangential 
direction.  However,  these  can  be  easily  substituted  in  the  program  by  any 
other  explicit  laws  simply  by  adding  a routine  that  embodies  the  desired 
constitutive  laws.  More  specific  details  for  all  of  the  above  schemes  will 
be  found  in  the  next  Sections  6.2  and  6.3. 

The  constitutive  equations  used  at  present  for  the  continuum  are 
those  of  an  elastic  material,  although  elastoplastic  laws  with  strain  hardening 
only  require  the  addition  of  a few  statements  at  the  place  indicated  in  the 
program. 


r 
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A feature  of  the  method  described  above  is  that  both  a true 
continuum  and  a true  discontinuum  can  be  accommodated  as  special  cases. 

For  a continuum  each  pair  of  mass-points  forming  a joint  may  be  locked 
together  rigidly,  leaving  the  triangular  zones  free  to  deform.  At  the 
other  extreme,  the  three  mass-points  of  each  triangle  can  be  constrained  to 
move  together,  with  the  joints  alone  being  capable  of  deformation. 

6.1.3  LAYOUT  OF  CHAPTER  6 

Section  6.2  deals  with  the  numerical  treatment  of  the  basic 
equations  involved  for  the  case  of  triangular  zones.  Mass  lumping  and 
numerical  stability  are  also  examined. 

Section  6.3  is  concerned  with  the  initial  discretization  of  the 
continuum  and  the  subsequent  rezoning  associated  with  the  contacts  between 
blocks.  Conservation  of  mass,  momentum  and  energy  for  such  processes  is 
thoroughly  examined. 

The  general  organization  of  the  program  and  a summarised 
description  of  each  routine  is  provided  in  Appendix  X and  a Users'  guide 
given  in  Section  6.4.  Section  6.5  presents  a series  of  examples  which  are 
intended  both  as  checks  on  the  program  and  as  orientation  for  further  use. 

Conclusions  and  recommendations  for  further  work  are  listed  in 
Section  6.6* 


The  appendices  VIII,  IX  and  XVI  restrict  themselves  to  definitions 
of  symbols  and  variables  used,  some  necessary  properties  of  triangles  and  a 
compiled  listing  of  the  program  as  it  presently  stands. 
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u.2  BASIC  EQUATIONS  AND  PARAMETERS 

<■■2.1  CON ST1TUTIVK  RELATIONS 

The  constitutive  relations  are  used  in  an  incremental  form,  so 
that  implementation  on  non-linear  problems  can  be  accomplished  easily. 

As  present,  the  program  has  been  provided  only  with  an  elastic  law.  The 
place  where  the  failure  criterion  should  be  included  for  treatment  of 
elastoplastic  problems  with  strain  hardening  and  associated  or  non-associated 
flow  rules  is  indicated  in  the  listing. 

The  actual  form  of  the  equations  used  is: 

At°  = X Ae  6 +2  pAe . . (*)  (**) 

ij  v ij  ij 

where  A,p  are  the  Lame  constants 

e 

At . , are  the  elastic  increments  of  the  stress  tensor 
ij 

Ae_  are  the  incremental  strains 

A^v  = Ae^  + Ae  is  the  increment  of  volumetric  strain 

6.2.2  EQUATIONS  OF  MOTION 

The  meaning  of  the  symbols  used  is  illustrated  in  Figure  6.1. 


(*)  All  symbols  are  defined  in  their  first  appearance  and  in  Appendix  VIII. 

(**)  i,j,k  .ire  used  as  indices  describing  tensorial  character.  The  usual 
summation  convention  for  repeated  indices  applies  to  the  rest  of 
Chapter  o. 
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The  sum  of  forces  at  a node  yields: 


F . = I T(in  ds 


ds  due  to  stresses  being  constant  within  zones 


V’'  M , M 

= > I Is  n 

ij 


M=1 


where  F are  the  components  of  the  resultant  force  on  node  N 
i 

p and  p^  are  integration  paths  shown  in  Figure  6-.  1. 
n are  the  components  of  the  normal  to  the  path. 

j 

s is  length  along  the  integration  path. 

M,  ranging  from  1 to  , covers  all  zones  surrounding  N. 


In  each  direction: 


N M , M M. 

p = L » „ (y  - y " 


M , M M 

i («  - x ) 

xy  2 1 


N ^ M , M M v-  M , M H 

f = V 1 (y  - y ) - > t - x. ) 

xy  2 1 


y - xy 
M 


yy 


l 


M 


where  x,y  are  the  coordinates  and  the  positions  of  1 and  2 in  zone  M 
shown  in  Figure  e . I . 


as 


W 
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It  is  clear  that: 
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where  the  positions  of  E and  S in  zone  M are  shown  in  Figure  6.1. 


Therefore : 

N 1 V'  r M , M M, 

f = o L t (yF  - yJ 

X ^ ^ I XX  h 5 

M 

N 1 r M , M M, 

h-5  \ L’xv  ,yE-V 


M (XM  - XM) 1 

xy  E s J 
-*] 


M , M 
T (xp 

yy  E 


Note  that  these  formulae  are  independent  of  the  order  of  summation 
through  the  surrounding  zones,  as  long  as  all  of  them  are  included.  Also, 
the  zones  need  not  surround  completely  the  node  considered. 

0.2.3  STRAIN-DISPLACEMENT  REIATIONS 

These  are  obtained  in  the  following  manner: 

9u 


xx  3x 


3u 


yy  3y 


where  u , is  the  displacement  tensor 

R is  the  rotation  tensor  (positive  clockwise) 
ij 

dots  represent  time  derivat ives 

In  constant  strain  elements: 


where  u , u correspond  to  a rigid  body  movement, 
xo  yo 

Referring  all  coordinates  and  velocity  components  to  those  of  node 
1 in  the  zone: 

x,  - x(2)  - x ( l ) at  time  t = (n  + S)  At,  etc. 
u = u (2)  - u (l)  at  time  t = nAt,  etc. 
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win -i  e PIT  x ,y  y %x  . ✓ i'  imliv.s  1 , , I ,u  <■  a 1 i one.! . 


1 POMI’UTATION  OK  TUP  l'  1 MV.  KTKP 


Niimeiie.il  stability  i o.pn  i cs  lli.it  a.'  i ut  mi  ui.it  ion  lx-  t i ansmi  1 1 c.i 
til'll!  .i  iiixic  to  .iiii'l  lii'i  Iii'.ic  ci  c.i.ic  in  less  t h.ui  cue  time  step.  The 
ill.ixiimmi  velcei  ty  ct  pi  epa.ia  t I cn  i th.it  et  p waves,  which  have  the  tell. 'Win. 
Ve  1 i t y : 


J ~ ■■ 


when'  \ , 1 1 .tie  the  lame  eciistants 
e ist  he  mass  .lens  i t y 


rli>-  t into  step  is  computed  as: 

. . /d(  mil) 

At  nu  n I — 

(m,n)\v  (inn) 

' 1' 

wlu'ii'  li  (mn)  is  tlu'  ill  s t a ik'  i'  between  two  coiners  m .uul  n i't  t ho  same  trainglo 
.uiil  v (mil)  is  tin'  mux liiiuni  1'  w.ivi’  velocity  possible  between  those  two  corners. 

r 

To  account  lot  situ.it  ions  such  .is  the  one  shown  in  the  sketch  in 
which  the  minimum  tiavel  t imo  may  not  occui  between  nodes  ot  the  same  ti  lungl 
the  above  At  ic  ult  is  multiplied  by  .'a  (it  a - O.M  where  a is  the  minimum 
latie  ot  height  to  base  t oi  all  triangles  (minimum  aspect  rat io) . 

In  01 dei  to  guarantee  stability  without  i eoomput ing  the  time  step, 
even  attei  the  dimensions  have  been  altered  by  detormat  ions,  the  icsult  is 
also  mult  ipl  led  by  l'RAt",  wheie  KK  AC'  «■  1 is  t ixed  by  the  uset  . Note  that 
damp  1 tig  1'1'uld  a 1 so  reguire  a ilei'reasi'  i't  the  VKAi  value  ‘;iuce  it  i net  eases 
the  appal ent  stillness  ot  the  material. 

i'..'.'>  mas:;  hUMi'iNi;  ('Kcx'iuiimt: 

As  justified  in  Appendix  IX,  each  grid  tx'int  is.  assigned  one 
third  ot  the  mass  ot  all  surrounding  ti  tangles  (lowei  case  lotteis  will  be 
used  t oi  'ti  id  point  masses  and  capitals  toi  .'one  masses). 


MASS  LUMPING  SCHtME 


K’l  example,  for  the  ease  shown  above: 


♦ M , + M , + M , tM, 
i «_  3 *4  r> 

"‘l  ’ ~1  * 


when'  in ^ is  the  mass  of  node  1 

M , N,  ...  are  the  masse.,  of  zones  1,2, 


!'-•  •'  • ft  , CONSTITUTIVE  1JVWS  ACROSS  CONTACTS 


Two  basic  types  of  contacts  have  been  assumed  together  with  theii 
corresponding  class  ot  equations  governing  the  interaction  at  the  contact . 
Roth  types  are  examined.  It  is  proposed  that  the  criterion  for  using  one 
type  rather  than  the  other  be  based  on  the  angle  between  the  two  edges 
involved  in  the  contact:  it  the  relative  angle  is  less  than  a pre-set 
minimum,  the  edge-to-edge  logic  would  be  used. 


U • • _-_t '.J _ ^ Cot  nei  - 1 o-edge  Con t act  s 


For  convenience,  the 
int  er.tct  ion  will  be  considered 
grid  point  is  taken  parallel  to 
point s. 


normal  and  tangential  component s ot  the 
independently.  The  tangent  plane  at  a surtace 
t lR'  line  linking  the  two  adjacent  grid 


»i)  Norma  1 l>\r*H  t ion 

The  normal  force  - normal  relative  displacement  law  postulati 
is  shown  in  Figure  A. 2(a). 


r 


- 162  - 

A bilinear  baw  with  no  tension  is  assumed  for  relative 
displacements  less  than  DN.  When  greater  than  DN,  the 
contact  is  assumed  rigid;  i.e.  the  two  mass-point  move 
as  one  (see  Section  6. 2.6.3). 

(b)  Tangential  Direction 

The  relationship  between  tangential  torce  and  relative 
displacement  is  shown  in  Figure  6 . 2 (b) t that  is,  an 
elastoplastic  law  with  yield  proportional  to  the  normal 
component . 

6. 2.6.2  Edge-to-edge  Contacts 

Two  edges  in  contact  are  regarded  as  a "joint",  and  the 
constitutive  laws  developed  in  Chapter  5 are  used  to  derive  the  new 
normal  and  shear  stresses  from  the  given  normal  and  shear  displacements. 
Since  the  program  needs  grid-point  forces,  and  not  stresses,  the  stresses 
are  multiplied  by  a length  in  order  to  convert  them  to  forces.  This 
length  is  assumed  to  be  associated  with  the  grid-point,  and  is  taken  to 
be  the  average  of  the  distances  of  the  grid-point  from  its  two  neighbours: 


>».  1 Flexible/Kigid  Transition  for  Contacts 

The  normal  stiffness  of  a rock  joint  character istical ly  increases 
with  increased  normal  load.  When  the  stiffness  becomes  great  in  comparison 


with  that  of  the  surrounding  rock,  the  joint  becomes  "transparent " in  the 


normal  direction,  and  ceases  to  influence  the  mechanics  of  the  rock  mass. 
However,  the  time-step  in  an  explicit  scheme  is  forced  to  be  uneconomica  1 ly 
small  by  the  high  stiffness.  For  this  reason  program  DBLOCK  allows  contact: 
to  become  rigid  in  the  normal  direction  if  the  relative  displacement  across 


the  joint  exceeds  a user-defined  limit.  It  is  still  possible  to  evaluate 
the  normal  force  between  the  locked  grid-points,  so  that  the  calculations 


of  slip  in  the  shear  direction  can  be  performed  as  usual.  The  derivation 
of  normal  force  is  as  follows: 


f k 


Appl ied 
forces  - 
(from  finite 
di f ference 
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n"  | f ) transmitted  force 

~ L l b 
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a-a  .a  rt 
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b-b  ,b  ,.t 
mu  = t -t 


If  the  two  masses  are  locked  together. 
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This  expression  gives  the  normal  force  between  the  two  opposing 
nodes,  on  the  assumption  that  they  are  locked  together  in  the  normal 
direction.  The  normal  force  can  then  be  utilized  in  the  usual  way  by 
the  joint  constitutive  law  in  order  to  derive  the  shear  force.  The 
transition  back  to  flexibility  in  the  normal  direction  can  be  determined 
from  the  magnitude  of  the  normal  force. 

If  a rigid/plastic  law  is  needed  for  the  shear  direction,  a 
similar  approach  may  be  taken  in  order  to  derive  the  shear  force  between 
nodes  locked  in  the  shear  direction.  In  this  case  the  contact  is  switched 
from  the  sliding  state  to  the  locked  state  when  the  relative  shear  velocity 
passes  through  zero.  The  transition  in  the  reverse  direction  is  determined 
by  the  magnitude  of  the  shear  force. 


f 
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b.  3 MESH  GENERATION  AND  REZONING 

0.3. J.  AUTOMATIC  MES H GENERATION 

The  program  allows  the  user  to  supply  his  own  mesh  or  to  simply 
give  the  boundaries  of  the  blocks,  in  which  case  the  computer  will  generate 
automatically  a triangular  mesh  of  a given  maximum  edge  length.  This  is 
achieved  in  three  stages: 

The  corners  of  the  boundary  are  linked  until  the  block  is 
decomposed  into  triangles.  The  links  are  always  established 
between  the  two  closest  corners.  Although  no  holes  are 
allowed,  the  number  of  blocks  is  only  limited  by  the  dimensions 
in  COMMON  and  no  special  problems  arise  from  locating  several 
corners  along  straight  or  concave  lines. 

The  triangles  are  divided  until  all  triangle  edges  are 
smaller  than  the  length  specified  by  the  user.  The  edge 
divided  is  always  that  of  maximum  length  in  the  triangle. 

All  internal  nodes  are  rezoned  until  their  coordinates 
coincide  with  the  average  of  the  coordinates  of  the  surrounding 
nodes.  An  iterative  procedure  is  used  here,  since  the 
relocation  of  one  internal  node  will  affect  its  neighbour. 


In  the  light  of  the  tests  performed  the  above  algorithms  seem 
to  be  sufficient  to  provide  satisfactory  shapes  of  triangles  in  most 
instances.  Note  l'oi  example  that  it  would  be  useless  to  define  the 
block  geometries  with  details  which  are  small  compared  to  the  maximum 
triangle  dimension  specified  by  the  user. 

Examples  of  mesh  qenernt ion  for  an  odd-shaped  block  are  given 
in  Section  6. 5. J . 

o_.  _< . _ CREATION  OF  A NEW  NODE 

When  a node  of  a block  contacts  another  block,  a new  node  is 


created  in  the  contacted  block,  in  the  same  location  as  the  impacting 
node : 


BEFORE  CONTACT  AFTER  CONTACT 

The  advantage  of  this  scheme  is  that  it  permits  the  natural 
transmission  of  momentum  across  blocks  by  means  ot  forces  ot  interaction 
which  are  felt  as  accelerations  by  the  pair  of  nodes  in  contact . The 
creation  of  a new  node  implies  a re-lumping  ot  mass  and  momentum,  and  in 


S7 


general,  a change  in  the  local  energy  since  the  momentum  and  energy 
equations  cannot  generally  be  simultaneously  satisfied.  In  the  procedures 
described  below,  mass  and  momentum  are  preserved  and  upper  bounds  in  the 
energy  increment  are  established  proving  that  the  errors  introduced  are 
negligible  compared  to  other  errors  inherent  in  the  discretization  of  the 
continuum. 

b . 1 . 2 . 1 Mass 

As  discussed  in  Appendix  IX,  masses  are  reassigned  upon  contact 
as  follows  (new  masses  indicated  by  an  asterisk). 


LET  a « 1 


1 


Then: 
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M1  Ml  a M1 

mi  = mi  - r + r c = n'l  ' b — 


m = m„ 
1 c 


mi  = n,3  - a T 


™4  = T 


(>.3.2.2  Moment  urn 


In  order  to  preserve  momentum: 


* * - 


(m,  ~ '"j)  v(  + (m3  - m3)  v3  - '» j Vj} 


where  v is  the  vector  describing  the  velocity  of  node  N 
N 


Mi  - - Mi  - 

r fiv!  3 av3 = r v4 


Hence  the  velocity  assigned  to  the  new  node  must  be 


v = 8v  + av 
4 1- 


e.  3.2.  3 Energy 

The  creation  of  a new  grid  point  in  the  form  described  produces  a 

loss  ot  kinetic  energy  AK  : 

E 
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M , M , M r -| 

KE  = 7*  Bvl“  + T~  °Y  • -T  [ * ^3  J 


~ (6-6  )v  + (a-a) 


2 , - ' 1 

v - 2a  t v v 

3 1 ’ J 


r 2 2.-1 

16  L V1  + V3  ‘ 2V1V3  _ 


- oi 6 (v  - v^) 


This  result  shows  that: 


a)  energy  is  never  gained 


b)  the  energy  loss  goes  to  zero  as  the  contact  point  approaches 
a grid  point 


c)  the  energy  loss  is  proportional  to  the  mass  of  the  triangle 


d)  if  velocities  are  continuous  functions  of  the  space  coordinates, 
the  energy  loss  goes  to  zero  with  the  square  of  the  zone  size; 
that  is,  the  error  committed  is  of  the  same  order  of  magnitude 
as  the  other  errors  associated  with  the  discret izat ton  of  the 


continuum. 
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u3.3  "TIC  Kill"  RKZONING 

Whenever  the  two  contacting  nodes  separate  tangentially  further 
than  TOL  while  maintaining  normal  contact,  the  created  node  is  relocated. 
Its  coordinates  are  made  equal  to  those  of  the  other  node  (allowing  for  the 
appropriate  normal  and  tangential  displacements  corresponding  to  the 
interacting  forces  at  that  time) . At  present,  TOL  is  obtained  as  a user- 
specified  fraction  of  the  distance  between  the  two  adjacent  nodes. 

© 


When  the  tangential  distance  between  the  two  nodes  in  contact  is 
less  than  TOL,  the  forces  of  interaction  are  transmitted  as  if  the  two 
nodes  were  precisely  opposite  each  other.  This  introduces  a moment  error, 
which  however  can  bo  made  arbitrarily  small  as  TOL  is  reduced. 

The  above  sketch  will  be  used  as  a guide  to  describe  the 
characteristics  of  the  tickle  rezoning  process. 


d> 


TICKLING  OF  NODE  4 


1 1 


o.  3.3.  I Mu ss 


The  new  zone  and  node  masses  are: 


M,  = H,  + 

1 1 

A = mass  (424*) 

* 

M , = M _ - A 


“*1  = ‘“I  + I 


m , = m„ 


R13  = m3  " I 


m4  = m4 


q.3.3.2  Momentum 

After  "tickle"  rezoning  nodes  1,  2 and  3 maintain  their  \ 
Then  the  conservation  of  linear  momentum  yields: 


A - A - 

T vi  " T v3  + Vv4  - V4 


= O 


v , = v + -f—  (v,  - v ) 
4 1 3m , 3 1 


e . 3 ■ 3 . 3 Energy 

The  energy  loss  associated  with  "tickle"  rezoning  is: 


2AEK  = Vl2  + m3V32  + m4V42  • miVl2  " m3V32  - “M* 


9 o ^ A 2 \ 

= m v + m v *’  + m v " - (m  + -)  v “ - (m  - ~)  v 

1 1 3 3 4 4 13  1 ' 3 


- m-  1 V4  f 3^  (V3 


-v] 


2AE. 


m 

— v, 
m l 


+ ni4  V3 


2mv  j ( v i “ v j 1 + m 


> [ 5J ' 


velocities. 
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where 


m = 


A 

3 


Since  — <<  1, 

m4 


2 


m 

m 


can  be  neglected.  Then: 


2AE 


- = v32  - V!2  ~ (^3  ” V 


= (v3  - vL)  (v3  + vx)  - 2v4  (v3  - 


(v3  - v^)  (v3  + v1-2v4) 


AE 


m (V;J  - v^) 


T + V3 


which  means  that: 


1)  the  energy  loss  is  never  negative  (m  changes  sign  with  the 
dot  product) . 

2)  the  energy  loss  is  proportional  to  the  mass  transferred  and 
goes  to  zero  when  the  two  outer  corners  (1,4)  have  equal 
velocities,  or  when  their  average  is  equal  or  perpendicular 
to  the  velocity  of  the  created  node  (4) . 

3)  as  the  mesh  becomes  smaller,  the  energy  loss  approaches 
zero  as  the  product  of  the  transferred  mass  times  the 
square  of  the  zone  dimension. 


,1* 

* 

A 


Due  to  the  tickle-rezoning  accompanying  sliding,  one  of  the  nodes 
created  at  a contact  may  approach  another  pre-existing  node.  When  the 
zone  common  to  those  two  nodes  becomes  too  small,  that  zone  is  deleted. 
Following  the  nomenclature  in  the  sketch  below,  zone  2 and  node  4 will 
disappear  when  node  4 approaches  node  5. 


In  this  sketch,  nodes  1,  4 and  5 are  boundary  nodes;  4 was  created 
at  a contact  with  another  block. 

The  criterion  used  by  the  program  to  decide  whether  to  delete  a 
node  or  not  is  based  on  the  aspect  ratio  of  the  diminishing  triangle; 
specifically,  the  triangle  is  deleted  when  its  aspect  ratio  becomes  smaller 
than  that  needed  to  guarantee  stability  for  the  time  increment  used. 


1 


6. 3.4.1  Maas 


The  zone  masses  become: 


M3  = M3 


M1  = M + M, 


And  tlie  node  masses: 


m = m + m 
1 1 o 


* 


m 


t 


m 


3 


* 

m_  = m + m - m 
5 4 5 o 


where  m 
o 


3 


b. 3.4.2  Momentum 


Alt  but  node  5 preserve  their  previous  velocities. 


Then,  conservation 


of  momentum  implies: 


Vl  + m,v^ 


+ m3V3 


> mtJv4  + m5v5 


+ ni  v„ 


(m,  + m ) 


miVl 


* _ * 


+ m3V3 


* 

+ (m  + m_-m  ) v 


niv. 
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and  hence: 


m4V4  + m5v5  ~ moVl 

5 m . + mc  - m 
4 5 o 


b.  3.4.3  Energy 

The  loss  in  kinetic  energy  associated  with  this  rezoning  is: 


o **9  * * ? + *n  * * 9 


2AE  = m v + m v + m v + m v + m v - m v - m v„  - m,v  - m v 
K 11  22  3 3 4 4 55  11  22  33  4 4 


= m v + m,v,  + mrv 
o 1 4 4 5 


rr  - (m  +m  -m  ) 
5 4 5 o 


m4V4  + m5V5  ~ 'Vl 
m4  + m5  ' '"o 


By  simple  reorganization  of  terms,  this  can  be  expressed  as: 


m4m5(v4'v5)  m4(v4_vl)"  + m5(V5"vl) 


_Ab  4 5 ' 4 5 

2AE  = — — - m 

K m , + mr  - m o 

4 5 o 


m.+m  -m 
4 5 o 


Assuming  that  velocities  are  continuous  functions  of  the 
coordinates: 


AF.  = O (d  ) ~ 0(d)0(e  ) 


where  d distance  from  4 to  5 

e = zone  typical  dimension 
1 of  the  order  of 


- 17(,  - 


Note  that  the  first  term  represents  an  energy  loss  and  the 

second  represents  a gain.  Also  that  the  errors  associated  with  a 

2 

constant  strain  triangular  configuration  are  of  the  order  of  e . Since 
d is  small  compared  to  e,  the  error  introduced  by  the  rezoning  described 
is  negligible  compared  to  that  inherent  in  the  method  of  discretization 
o f t he  con  t inuum . 

e. 3.5  OTHER  DETAILS 


The  main  procedures  for  creation  of  the  mesh  and  its  rezoning 
have  been  described  in  earlier  sections.  To  complete  the  description, 
some  minor  details  should  also  be  mentioned. 


e . a . S . 1 Recreat  ion  ot  t'ont  act  Nodes 

It  has  been  shown  before  how  a node  created  at  a contact  is  "t icklod” 
to  follow  its  partner;  also,  how  the  former  is  deleted  when,  due  to  successive 
"tickling"  one  ot  the  triangles  about  the  "tickled"  node  becomes  very  slender. 


Consistent  with  those  procedures,  once  the  impacting  node  N goes 
{\>st  a certain  distance  from  the  opposite  (non  tick! cable)  node  a new 
node  N'  is  created  to  continue  opposing  N' . 

Vho  . d stance  N'T  minimum  lot  the  re-creation 
of  the  tode  is  taken  SO*  great ei  than  the 
distance  for  deletion  of  the  node.  This 
hvsiet'  si;;  avoids  cor. t i nuor.s  creation  and 


io  Iff  i 


ot  tlu'  ana'  node. 


The  same  formulation  given  in  Section  6.3.2  for  the  creation  of 


a new  node  applies  for  the  re-creation.  Note  that  two  nodes  are  re-created 
at  the  same  time 


unless  two  contacts  (N  to  P and  P to  N)  already  exist  (see  Section  6. 3. 5. 2). 
Clearly,  once  N goes  past  P,  nodes  opposing  both  N and  P will  need  re- 
creation. 

6.3 .5. 2 Redundant  Contacts 

The  deletion  of  nodes  in  the  case  of  two  adjacent  contacts  must 
be  handled  with  special  care. 


MOVEMENT 


I 
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From  the  above  sketch  it  is  clear  that  nodes  P'  and  N'  will  soon  be  deleted. 
From  the  deletion  of  P',  a contact  P to  N will  appear;  from  deletion  of  N', 
another  contact  N to  P will  appear.  If  nothing  is  done,  the  same  contact  will 
be  taken  into  account  twice  per  time  step.  This  is  not  considered  realistic 


and,  besides,  it  is  likely  to  create  problems  of  stability. 
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6.4  USE  OF  PROGRAM  DBLOCK 


As  remarked  earlier,  the  program  is  not  intended  as  a "user- 
oriented"  package,  but  is  simply  a test-bed  for  proving  the  numerical 
scheme.  In  consequence  the  input  and  output  is  rudimentary. 

6.4.1  FILES 


No  file  numbers  are  referred  to  in  the  program  since  simple  PRINT 
and  READ  statements  are  used  for  output  and  input.  The  format  for  the 
input  stream  is  given  in  Appendix  X. 

6.4.2  PRINTED  OUTPUT 


The  computer  provides  an  echo  of  all  input  data  as  well  as  the 
values  of  all  velocities,  coordinates  and  stresses  at  the  iteration 
cycle  numbers  requested  by  the  user.  However,  this  type  of  output  is 
lengthy  and  difficult  to  visualise. 


6.4.3  PLOTTED  OUTPUT 


The  output  is  much  more  manageable  in  the  form  of  plots.  The 
computer  can  provide  two  different  types  of  plots: 
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6. 4.. i.l  Meshes 

A plot  of  the  complete  finite  difference  mesh  will  be  plotted  at 
the  required  scale  at  the  cycle  numbers  pre-selected  by  the  user.  The 
number  of  plots  is  at  present  restricted  to  10  by  the  dimensions  in  COMMON 
but  can  be  increased  as  desired  within  the  core  capabilities  of  the 
computer  used. 

i 

6.4. 3. 2 Histories 
— — — 

The  program  is  prepared  to  provide  time  histories  of  two 
variables.  The  two  variables  of  which  the  history  is  requested  are 
specified  in  the  routine  OUTPUT  by  statements  of  the  form: 

BUF1  (NPL)  = YD (6) 

BUF3  (NPL)  = XD  (6) 

The  two  variables  desired  should  replace  XD(6)  and  YD (6)  in 
the  two  statements  mentioned.  The  program  will  then  create  a file  for 
plotting  which  can  then  be  plotted  by  a post -processor . 

This  is  in  contrast  with  the  mesh  plots  which  are  controlled 
directly  by  the  program. 

6.4.4  BOUNDARY  CONDITIONS 


The  boundary  conditions  must  be  inserted  explicitly  as  FORTRAN 
statements  in  the  routine  BOUND Y . This  routine  is  simply: 
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SUBROUTINE  BOUNDY 
INCLUDE  ' COMMON . FTN ' 


RETURN 

I END 

i 

If  node  3 is  to  be  fixed  in  the  X-direction,  then  the  user  will 
replace  the  dots  in  the  above  listing  by: 

XD (3)  = O 


Similarly  for  any  other  boundary  conditions. 


6.4.5  DAMPING 

Only  stiffness-proportional  damping  is  provided,  and  is  similar 
to  that  embodied  in  program  RBM  (see  Section  2.4.6). 
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In  this  section  several  examples  are  presented.  Their  purpose 
is  two  fold:  on  the  one  hand,  they  provide  a verification  of  the 
adequacy  of  the  program  while,  on  the  other  hand,  they  provide  a 
clarification  of  the  type  of  results  generated  by  the  program  as  well 
as  of  its  capabilities. 


r 


e.5.1  STATIC  TESTS  UNDER  UNIFORM  CONDITIONS 


The  mesh  used  for  these  tests  was  taken  to  be  very  irregular  with 
the  purpose  of  verifying  t lie  accuracy  of  the  results  under  difficult 
conditions.  The  mesh  is  shown  on  Figure  (..3. 

Several  tests  were  performed  with  this  mesh.  Figure  e.4  shows 
the  theoretical  and  numerical  results  when  the  mesh  is  subjected  to  gravity. 

It  was  also  verified  that  all  nodes  reached  equilibrium  and 
stresses  were  uniform  when  the  domain  considered  was  subjected  to  uniform 
boundary  stresses. 


Another  static  test  performed  consisted  of  imposing  a relative 
vertical  displacement  between  the  two  horizontal  boundaries.  In  one  case, 
the  nodes  on  the  vertical  boundaries  were  forced  to  the  positions  they 
should  reach  under  deformation;  in  the  second  case,  they  were  al lowed 
vertical  freedom  to  attain  such  positions  naturally.  The  results  are 
compared  with  the  true  solution  in  the  following  tables: 


Constrained  Case 


Theoretical 

Numo r ical 

T 

3.75 

3.7707 

XX 

I 

1.25 

1 . 2569 

yy 

i 

0 

% 6.7x10 ~(S 

XV 

_______  - 
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Unconstrained  Case 


Theoretical 

Numerical 

T 

3.7500 

3.7707 

XX 

I 

1.2500 

1.2569 

yy 

-6 

I 

0 

•S  9.8x10 

xy 

6.5.2  WAVE  PROPAGATION  TESTS 

The  theoretical  velocity  of  propagation  of  different  waves  was 
compared  to  that  observed  from  the  results  of  the  program.  For  this 
purpose,  a twenty-story  bar  was  generated  and  subjected  to  gravity  in 
different  positions  and  under  different  boundary  conditions.  In  this  way, 
three  types  of  waves  were  generated:  a)  P-waves  in  a constrained  material, 
b)  P-waves  in  material  constrained  in  one  transversal  direction  but  free 
in  the  other,  and  c)  S-waves. 

A comparison  of  the  accuracy  of  the  resulting  periods  of  oscillation 
is  provided  in  the  next  table. 


THEORETICAL 
VALUE  (sec) 

OBSERVED 

VALUE  (sec) 

i FULLY  CONSTRAINF.D 

3.88 

3.89 

P-WAVE  j 

( SEMI-CONSTRAINED 

7.12 

7.00 

S-WAVE 

1 3 . 66 

n . 68 
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The  reason  why  the  semi-constrained  case  does  not  appear  to  he 
as  accurate  as  the  others  is  that  the  theoretical  propagation  assumes 
no  lateral  inertia  in  the  unconstrained  direction.  Such  inertia,  though 
small,  does  exist  in  the  numerical  representation,  thus  slightly  biasing 
the  result  towards  the  fully  constrained  value  (infinite  lateral  inertia). 

An  example  of  the  velocity  history  is  also  presented  in  Figure 
6.5.  It  corresponds  to  the  case  of  the  propagation  of  the  shear  wave. 

Note  that  the  theoretical  history  is  composed  of  straight  lines. 

6.5.3  MESH  GENERATION  TESTS 

Several  tests  were  made  to  illustrate  the  capabilities  of  the 
mesh  generating  process.  Figure  o.6  presents  the  information  initially 
given  to  the  computer,  namely,  twelve  boundary  nodes.  Figure  6.7  presents 
the  mesh  at  the  end  of  the  triangularization  by  MESH.  Figures  e.8A  ana 
6 . 9A  show  the  mesh  as  obtained  by  REDUCE  for  the  cases  of  maximum  edge 
sizes  of  3.0  and  2.4  cm,  respectively.  Finally,  Figures  6.8B  and  o.9B 
depict  the  meshes  corresponding  to  the  two  cases  mentioned  after  the 


rezoning  carried  out  by  NICE. 
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6.5. -1  BLOCK  SLIDING  ON  INCLINED  PLANE 

The  interest  of  this  test,  besides  that  of  providing  a clear 
display  of  the  rezoning  activities  of  the  program,  is  to  check  the 
conservation  of  momentum  and  energy  throughout  the  rezoning  procedure. 

The  initial  configuration  is  displayed  in  frame  A of  Figure 
6.10.  A three  zone  block  is  pushed  downslope  with  vertical  and  horizontal 
velocities  equal  to  -1.0.  Gravity  exists  and  is  equal  to  0.98  (units 
are  arbitrary)  . Under  those  conditions  the  vertical  velocity  of  the  block 
should  be: 

v =1  -0.49t 

y 

The  subsequent  frames  (6.10B  to  6.101)  illustrate  the  rezoning 
process.  The  plot  in  Figures  6.11  shows  a comparison  of  the  theoretical 
velocity  with  that  computed  for  the  back  node  of  the  sliding  block.  As 
can  be  seen,  the  agreement  is  very  satisfactory  and  no  appreciable  energy 
or  momentum  losses  have  been  accumulated  in  the  process.  Figure  6.12 
presents  a plot  in  which  the  block  is  pushed  without  gravity.  As  shown, 
no  energy  is  spent  in  the  rezoning  procedures. 

For  the  runs  described  above,  the  following  properties  were 


used: 


TT^l 
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X = p = lOOO  (Lame’s  constants) 


K = K = 5000  normal  stiffness 
NL  NU 


& = rigid  transition 

n 


P = 1 


X . =5% 

min 


f . = lO. 

mm 


damping 


slope  angle  = 45 
g = 0.98  gravity 


6.5.5  SHEARBOX  TEST 


Similar  tests  to  be  those  performed  with  the  block  sliding  down- 
slope  were  undertaken  to  study  the  behaviour  of  a simulated  shear  test 
configuration.  Figure  6.13A  presents  the  arrangement  of  two  blocks  and 
their  initial  finite  difference  grids. 


As  seen  in  the  referenced  figure,  all  five  nodes  in  the  lowest 
horizontal  plane  remain  fixed  during  the  tests.  The  boundary  conditions, 
specified  as  velocities,  are  applied  on  the  five  nodes  in  the  highest 
horizontal  plane.  Those  boundary  conditions  were  as  shown  below: 


normal 

velocity 

-o-i 


cycle  number 


velocity 


cycle  number 
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Clearly,  tin*  two  blocks  are  first  compressed  togethet;  when  tins 
situation  stabilizes,  t tic  upper  plane  ot  the  top  block  is  forced  to 
displace  horizontally  with  respect  to  the  lower  plant*  ol  t tie  bottom  block. 
Total  tesultant  horizontal  and  vortical  forces  alont)  the  top  horizontal 
plane  were  monitored  during  the  teat. 

Material  properties  atul  jvirameters  used  in  these  tests  wete  as 

tol lows: 


\ ii  lOOO 
P - l 


g “ o 


K = K 
Nl,  NU 


K - llttt 
811 


XMU  O.  1 

\ o.  v 

min 

t 2.0 

nnn 

Fit  AC  O.S 


Figures  b.14  to  8.17  present  the  results  ot  t he  tests  together 
wLth  the  theoretical  static  results.  It  is  probably  worth  mentioning  how 
the  theoretical  result  lot  compression  was  obtained. 


The  total  relative  vertlc.il  displacement  d is: 
tl  » d(  t d2 

where  *1  cot  responds  to  compression  ot  the  continuum 


d occurs  at  the  discontinuity. 


r 


■ ««■ 


100  - 


Since  the  resultant  force  F is  equal  across  any  section: 

K = n K d across  the  discontinuity 
Nl.  2 

F » Kjilj  in  the  continuum 

whete  n is  tlu*  number  ot  contacts  across  tin*  di  scont  inuit  y. 

Kj  is  similar  to  a Young  * s modulus  under  plane- st  i a i n conditions  and  can  be 
obtained  I rum  the  followinq  relations: 


t \ (i  r i ) r .’h  i O 

XX  XX  yy  »• 


I \ ( 1 t 1 ) » .’ll  1 

yy  -f.r  yy  YY 


F.l  iminat  in>)  i between  both  equat  ions,  and  t oi  the  values  ot 
a*.t* 


the  parameters  pioposod, 


l .lit't* . 7 i 

VV  VV 


lienee: 


K .'MX,.  7 „ d 


Where  A is  the  cross-sectional  area  (assumed  constant) 
II  is  the  height 

In  terms  ot  the  total  displacement: 

d 

F 3 — — 

1 1 

V K.’ 


"m 


2(>t>(> . 7 


Where  = 2t>(>6.7  ^ = 

K = n K = 35000 

2 Nl. 

Hence : 

F - 135.72 

It  can  bo  seen  that  the  dynamic  solutions  converge  to  the  theoretical 
static  ones.  Figures  (>.14  and  «>.!•>  present  the  normal  and  shear  forces  during 
Test  A,  in  which  the  shear  displacement  started  after  1000  iterations  (N  = 1000). 
The  initial  oscillations  of  the  shear  force  coupled  to  the  compression  are  thought 
to  be  originated  by  the  asymmetry  of  the  mesh  and  decay  due  to  the  stiffness  dam- 
ping incorporated.  A sm.il 1 but  similar  coupling  effect  is  observed  at  the  onset  of 
shearing. 


The  same  test  was  repeated  with  shearing  velocity  equal  to  -0.05  starting 
after  only  lOO  iterations  (Test  B) . Normal  and  shear  forces  for  this  t ost  are  pre- 
sented in  Figures  (>.1(>  and  (>.17.  The  shear  force  seems  to  converge  to  a slight  ly  low 
value  compared  to  the  theoretical  solution.  Apart  from  that  the  results  are  as 
expect ed . 


A special  feature  of  the  two  tests  described  was  that  the  nodes  of  the  top 
and  bottom  boundaries  were  allowed  free  relative  horizontal  displ acoment  until  the 
onset  of  shear.  Other  tests  (not  presented)  showed  that  a slightly  largei  value  is 
obtained  for  the  normal  load  if  these  boundary  nodes  are  horizontally  fixed,  due  to 
tlu>  obvious  constraints  on  t lie  Poisson's  ratio  effect.  However,  as  could  be  expected, 
such  horizonta 1 constraints  decreased  t lie  effect  of  the  unwanted  coupled  oscillations 
introduced  by  mesh  asymmetry  and  the  shear  forces  converged  to  the  correct  value. 


Finally,  a test  was  also  run  without  normal  force,  simply  by  providing 
an  initial  velocity.  The  constant  velocity  observed  proves  again  that  energy  is 
conserved  during  rezoning;  such  rezoning  can  be  visualised  in  Figures  6.1  iA  to  6. 1 Ac. 
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CONCUISIONS 

A basic  program  has  been  written  to  analyse  deformable  continua 
and  discontinua.  The  program,  DBLOCK,  works  explicitly  in  the  time  domain 
by  a Lagrangian  finite  difference  scheme.  The  implementation  of  arbitrary 
constitutive  relations  for  continuous  materials  is  relatively  simple. 

The  contacts  between  blocks  are  handled  by  special  logic  depending 
on  whether  they  are  considered  corner-t o-edge  or  odge-to-edge  contacts.  Again, 
arbitrary  laws  governing  the  interaction  at  those  contacts  are  straight- 
forward to  introduce. 

The  main  novelty  of  the  program  lies  on  the  handling  of  the 
contacts.  Two  grid  points  are  permanently  opposed  in  each  contact,  the 
contact  forces,  hence,  being  felt  by  those  nodes  as  accelerat ions.  The 
meshes  are  rezoned  as  required  to  maintain  the  two  nodes  in  each  contact 
opposing  each  other  throughout  the  duration  of  the  contact. 

The  hypotheses  embodied  in  the  program  have  been  tested  on  static 
and  dynamic  problems  against  analytical  solutions,  with  special  emphasis 
on  the  conservation  of  energy  and  momentum.  The  results  obtained  to  date 
are  very  encouraging.  For  quasi-static  problems,  where  velocity  gradients 
are  low,  t he  errors  associated  with  re /.on  i nq  tend  to  zero,  since  the 
equations  presented  in  Section  h . 1 show  that  the  energy  error  is  proportional 
to  the  difference  in  velocity  of  the  nodes  either  side  of  the  node  being 


relocated.  Momentum  is  always  conserved  exactly. 
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6.2  ASSUMED  CONSTITUTIVE  LAWS  FOR 
CORNER  TO  EDGE  CONTACT 
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FIG  6.13  SHEAR  BOX  TEST  MESH  PLOTS 
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M ACHIKVKMKNTS  OK  THK  STUOV 


The  main  object  of  tho  research  was  to  demonstrate  that  the 
numerical  schemes  proposed  tor  a tally  deformable  block  ptogtam  would 
actually  work  and  give  reasonably  accurate  lesults.  this  has  now  boon 
accompl i shed.  It  has  been  shown  that  very  little  error  is  introduced  into 
the  calculation  ot  sliding  of  rook  joints  by  the  various  rezoning  schemes 
used . 


Although  t lie  new  formulation  is  likely  to  be  no  more  efficient 
than  existing  lagrange,  t uute-dit terence  codes,  it  has  two  majol 
advant  ages : 


i)  It  is  completely  general,  and  can  model  any 
arbitrary  jointing  pattern,  with  no  "tuning' 
needed  by  the  user . 

ii)  Joints  are  modelled  accurately,  with  no 
int erpolat ion  necessary  at  interlaces. 

To  be  set  against  these  advantages  is  the  reputation  that 
triangular  zones  have  for  being  too  "stilt". 

The  program,  PBUVK,  that  has  been  written  to  pertorm  the  venti 
cations  is  only  a "test-bed"  program  and  does  not  include  any  ot  the 
housekeeping  logic  necessary  for  keeping  track  ot  int ei act  ions  between 


-•ones  and  Joints.  This  lo^ic  can  easily  be  l'vi i 1 t into  .1  future  program, 
since  it  will  be  Nisod  on  that  already  tested  in  the  original  tigid-block 
progi  am. 

Several  othei  goals  have  been  aocompl  i shed : the  01  initial 
rigid-block  program  has  been  translated  into  Fort  ran,  and  has  been  exten- 
sively validated.  It  ts  in  the  form  of  a "base-line"  program  that  can  be 
list'd  as  a leference  version  for  checking  modified  and  extended  veisions 
against . 


A new  idea  has  been  tiied  out,  in  which  simple  detorniabi  1 i t y is 
■liven  tv'  the  blocks  ot  the  distinct  element  method.  bach  block  is  allowe 
three  .ie.ii  ees  of  t 1 ee.lom  to  dot  01  m internally,  with  oenetal  i-enst  itut  ive 
laws,  be  t ml  possible  for  the  intact  material.  The  method  differs,  in  a 
fundamental  way  from  both  finite  elements  and  finite  di f f ot onees , and 
relies  on  the  st  1 1 t nesses  ot  joints  to  link  ne  i ghbour  i no  b looks. , cr  .-ones- 
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t hat 
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locks  t 
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t he  loads  act  i ug  on 

them.  The 

dat  a 

st  met uro: 

: have 

been  changed  so  that  blocks  may  divide  and  subdivide  indefinitely  (until 
limited  by  oomputor  storage) . A simple  cracking  criterion  has  boon  built 
into  the  program,  based  on  semi -empi r i ca  1 results  from  point-load  tosts  o 
irre17ul.11  took  blocks.  However,  the  proaram  is  structured  so  that  the 


usei  may  insert  any  other  criterion  with  very  little  ettort. 


It  is 


anticipated  that  the  now  program  will  ho  able  to  increase  considerably 
the  realism  of  simulations  in  which  "hanging-up"  of  blocks  would  have 
occurred  using  the  regular  program,  RBM . 

A fairly  extensive  literature  survey  has  been  made  on  the 
properties  and  behaviour  of  rock  joints.  Based  on  the  findings,  a 
constitutive  law  has  been  proposed  for  rough  rock  joints,  and  coded  up 
in  the  form  of  a Fortran  subroutine  called  JOINT.  The  program  seems  to 
be  capable  of  simulating  the  range  ol  behaviour  observed  in  the  test 
results;  it  also  gives  plausible  stress/strain  curves  for  complex  loading 
[xiths,  for  which  test  results  do  not  exist.  There  is  no  doubt  that  when 
more  comprehensive  test  results  become  available,  the  proposed  constitu- 
tive law  will  need  to  be  revised. 

In  summary,  the  work  presented  in  this  report  should  be  regarded 
as  the  first  phase  in  a continuing  effort  to  understand  and  model  jointed 
rock  masses.  Several  tools  have  been  developed,  investigated  and  evaluated; 
in  the  next  phases  it  is  hoped  that  some  or  all  of  these  tools  will  be  used 
to  simulate  and  predict  real  experiments  on  jointed  rock.  In  this  way  the 
computer  programs  can  be  refined  and  corrected  in  the  light  of  comparisons 


with  experimental  results. 
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7 . 2 APPLICABILITY  AND  USE  OF  THE  COMPUTER  PROGRAMS 


Of  all  the  programs  that  have  been  written  during  the  present 
study,  only  RBM  has  been  extensively  validated.  The  other  programs  are 
only  made  available  on  the  understanding  that  they  are  for  experimental  use 
only,  and  the  results  are  not  to  be  relied  upon  until  further  validations 
have  been  done  and  any  bugs  corrected. 

RBM  is  applicable  to  jointed  rock  problems  where  the  stresses 
are  low,  so  that  deformations  at  joints  far  exceed  any  intact  rock  deforma- 
tions . 


For  situations  involving  higher  stresses,  SDEM  should  be  used, 
up  to  the  point  where  intact  block  deformations  become  comparable  to  joint 
deformations.  At  this  stage  SDEM  will  become  inaccurate,  and  DBLOCK  should 
be  used  instead. 

If  the  rock  is  brittle  and  of  low  strength,  cracks  are  probable, 
so  that  RBMC  should  be  used.  Parameter  studies  should  be  made  in  which  the 
crack  criterion  is  varied,  since  the  mechanics  of  crack  initiation  is  only 
approximately  treated  by  RBMC. 
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iii)  non-reflecting  boundaries  tot  dynamic  problems; 

iv)  troo-format  input  routine,  general  spocit icat ion 

ot  houndary  conditions  and  sophist icat rd  graphical 
output  displays; 

v)  logic  tv'  al  low  cracks  tv'  propagate  through  the 
intact  blocks,  by  creating  new  triangular  nones 
as  tin'  crack  moves  through  the  continuum. 

DIU.CX'K  should  a 1 so  be  extensively  validated  against  existing 
experimental  results  on  jointed  rook . 
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APPEND  I X 111  : INPUT  COMMANDS  FOR  RBM  ANP  HXAMl'l  .K  BUN 
II  I- l INPUl’  COMMANDS 


This  list  of  input  cards  must  Do  lead  in  conjunction  with 
Section  J.4,  which  explains  the  use  of  the  program  in  more  detail. 

At  present  the  input  format  is  in  fixed  columns,  unlike  program 
SDEM,  where  tree  format  can  be  used.  Each  card  image  consists  of 
a command  word,  starting  in  column  one,  followed  by  a number  ot 
parameters,  in  successive  10-colunm  fields,  the  first  field  starting 
in  column  11. 


DATA  SET  1 


COMMAND  PARAMETERS 


COMMENTS 


RESTART 


Restart  an  old  run  from  logical 
Unit  1.  Go  to  data  set  .'. 


START  Start  a new  run.  This  card 

must  be  followed  by  the  two 
following  cards: 


1)  heading  card  - any  characters  may  be  used 

2)  data  card  in  (-1 1 10, F10.0)  format, 

giving : 

NBI.OKM  ; maximum  number  of  blocks  to  be  used 
1 BOXES  number  of  boxes  in  X-direction 
JBOXES  = number  of  boxes  in  y-direction 
IRS IDE  size  of  single  box  (boxes  are  square' 

TFRAC  fraction  ot  critical  time-step 


DATA  SET  ? 

COMMAND PARAMETERS  COMMENTS 

CREATE  NC,  RHO,  1EIX  Create  a block  with  NC  corners, 

density  e and  IF1X*0  for  a t i xed 
block.  This  card  must  be 
followed  by  other  card  is) 
diving  NC  corner  coordinates: 

(X  1 1)  , Y (I)  , I 1,NC)  in  ti'Fl  0.0) 
Format.  The  coordinates  must  be 
given  in  a clockwise  direction. 

A CREATE  command  must  not  be 
given  after  a CYCLE  Command 
has  been  given. 
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COMMAND 


PARAMETERS 


COMMENTS 


DUMP 

CYCLE 

STOP 


DAMPING 


FRICTION 

ZERO 

RSET 

ISET 

CHECK 


LOCI,  LOC2 


NCYC 


PLOT 

GRAVITY  GRAVY,  GRAVX 

STIFFNESS  STIFN,  STIFS 


\ . , f ,1,1 
min  nun  a 6 


FRIC 

I ADR,  VAL 
IADR,  I VAL 

f:i,  fy,  nb 


Dump  main  array  from  LOCI  to  LOC2. 

If  LOC2  <0,  dump  by  boxes,  blocks 
& contacts. 

Execute  NCYC  time-steps 

STOP.  Saves  problem  on  logical  unit 
1 unless  a serious  error  has 
occurred. 

Plot  current  mesh. 

y and  x accelerations  due  to  gravity. 
Default  values  are  GRAVY  = -9.81 
GRAVX  = 0.0 

Normal  and  shear  contact  stiffness. 
Default  = 1x10® . 

\ I Rayleigh  damping  terms, 
mm  I 

f \ defined  in  Section  2 
min  ' 

If  I = 1,  mass-proportional  constant 
a is  set  to  zero. 

If  I.  = 1,  stiffness-proportional 

p 

constant  r is  set  to  zero. 

If  I = I =0,  normal  Rayleigh 
a p . , 

damping  is  used. 

Friction  coefficient  for  all  edges. 

Set  all  velocities  to  zero. 

Set  A ( I ADR ) to  VAL. 

Set  IA ( IADR)  to  I VAL. 

Momentum  and  energy  printout 

Applies  x and  y forces  block  NB 
centroid. 


LOAD 


FY,  NB 


1 
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EXAMPLE  RUN  OF  RBM , WITH  INPUT  DATA  AND  OUTPUT  LISTING. 

THE  RUN  IS  FOR  VALIDATION  5A,  DESCRIBED  IN  CHAPTER  2. 
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INPUT  DATA  FOR  F.XAMPUO  HUN  OF  HUM 


o 

• 

o 

o 

T> 


3 


3 

3 

t) 


O 3 

• • 

3 O 

3 3 

•-«  O 


«-*  3 3 

• • • 

O 3 O 

O O 
OD 


o 

Z O -4  3 O O 

•t  3 • • 

3 *-«  O 3 

X 0 3 

m vO 

Q 


E 


30030001^0 

-2  •-« 3 • 

H O «— « 3 3 O .O 

3 3 3 • 

3 r* 

< 

3 


3 

U 


0 

O 

0 

* 

0 

f 

n 

0 

3 *—4 

3 

T— 4 

• • 

OD 

3 

• 

0 

O 1 

JD 

3 3 

• 

3 

3 

n 

d"» 

.3  O 

o> 

• 

• 

<N 

• 

• 

-4  vn 

• 

-« 

3 

m 


2T 

“V 

3 

3 

O 

• 

• 

•-H 

•3 

O 

i/3 

3 

V— 4 

3 

O 

>4 

3 

3 

O 

< 

3 

t-4 

3 

p^- 

H 

2 

4-4 

1—4 

O 

M 

—4 

x 

•-s 

H 

3 

X 

M 

< 

-T 

lx 

U 

•-4 

J 

a 

X 

< 

3 

UJ 

3 

< 

4—4 

> 

>— 4 

c 

U 

*- 

0 

r“4 

< 

>X 

it. 

M 

-i 

X 

3 

V* 

3 

M 

> 

u 

U 

O 

m 

3 

lx 

X 

U 

3 

in 

22') 


APPENDIX  IV:  SUBROUTINE  GUIDE  TO  RBM  AND  PROGRAM  CHANGES 


IV- 1:  SUBROUTINE  GUIDE 


RBM  Main  program  - calls  SETUP,  NEXT  and  CYCLE. 

SETUP  Reads  in  initial  problem  definition,  sets  up  data  parti- 

tions and  initialises  data.  It  is  called  once  only  from 
RBM. 

NEXT  Reads  in  commands  and  takes  appropriate  action.  NEXT 

returns  to  RBM  only  when  a number  of  cycles  (time-steps) 
are  to  be  executed.  Before  doing  this  for  the  t irst  time, 
BOX  i s ca 1 1 ed . 

BOX  When  all  blocks  have  been  created,  and  some  calculation 

cycles  have  been  requested,  BOX  is  called  to  perform  the 
initial  classification  ol  block  corners  into  boxes. 

CYCLE  This  is  the  driver  for  the  main  claculation  cycle,  and 

calls  FORD  and  MOTION  repeatedly  for  all  blocks. 

MOTION  Applies  the  law  of  motion  for  a single  block.  Velocities 

and  displacements  are  updated  from  known  centroid  forces. 

FORD  Applies  the  constitutive  laws  for  a single  block.  Contact 

forces  are  evaluated  from  known  displacements. 

REBOX  Re-maps  corners  into  boxes  if  necessary.  REBOX  is  called 

from  CYCLE,  and  is  triggered  when  a block  crosses  an 
integer  boundary. 

UPDAT  Contacts  are  detected  by  UPDAT,  which  is  called  from  CYCLE 

when  cumulative  displacements  have  exceeded  a given  limit. 

GI.X  Global  x-coordinates  from  local. 

GI.Y  Global  y-coordinates  from  local. 

DUMP  Printout  of  memory  or  lists  - called  from  NEXT. 

BPLOT  Plots  a "snapshot"  of  the  blocks  (called  from  NEXT). 

CHECK  Momentum  and  energy  calculation  (called  from  NEXT). 

FINISH  Orderly  termination  of  the  program. 


t 
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IV-.’:  l'KlXiKAM  CHANCES 

Changes  made  to  RUM  since  pre-release  version  1.0  (September  1"77). 

Please  retei  to  listing  in  Appendix  XII  for  line  numbers. 

1 . Program  RRM 

i)  bine  9:  l>2  in  data  statement  (was  b3)  . 

2.  Subrout i no  SETUP 

i)  This  routine  has  been  completely  changed.  It  now  reads  just 
one  card,  instead  of  a set.  The  changes  are  mainly  due  to  the 
elimination  of  co-ordinate  scaling  and  shifting  logic. 

I.  Subtout  ine  NEXT 

i)  The  command  "I.0AD"  has  been  implemented,  necessitating  changes 
to  lines  8,  lb  and  123  to  127. 

ii)  Calls  to  date  and  time  routines  have  been  removed,  necessitating 
changes  to  the  WRITE  statement  on  line  10  and  format  statement  on 
line  13ri. 

tii)  All  references  to  co-ordinate  scaling  and  shifting  have  been 

removed,  necessitating  removal  ot  lines  preceding  line  lo,  and 
imvl i t lc.it  ion  ot  lines  -11  to  lit. 


iv)  DECODE  statement  on  line  20  has  been  modified. 


v)  "AREA"  in  FORMAT  statement  2002  has  been  changed  to  "MASS" . 


vi)  Lines  99  to  113  changed  to  include  full  Rayleigh  damping. 


4.  Subroutine  BOX 


i)  Line  21:  IBOXES  replaces  JBOXES. 


5.  Subroutine  REBOX 


i)  Line  20:  IBOXES  replaces  JBOXES. 


6.  Subroutine  MOTION 


i)  Line  24:  ABS  inserted  before  B(5). 


7.  Subroutine  UPDAT 


i)  Line  8:  0.001  changed  to  1.0. 

TOLB  initialised  to  -0.01 . 


ii)  Line  79:  ICL  = I2C  + 20  replaces  ICL  = IA(I2C)  + 20 


APPENDIX  V : DERIVATION  OF  EFFECTIVE  MASSES  - PROGRAM  SDEM 


Consider  a "continuum"  of  blocks through  which  a plane  wave  is 


propagating  (assume  the  joints  to  be  very  stiff) 


WAVE  PROPAGATIN 


Let  E*  be  the  modulus 


wave 


example,  G for  shear  waves,  or 


The  velocity  of 


propagation  in  a true  continuum  will  be 


where  p is  the  density 


Consider  now  a line  of  equal  masses  and  springs 


The  velocity  of  wave  propagation  in  this  line  is  given  by 


Suppose  we  now  view  the  line  as  composed  of  individual  mass/ 


spring  units 


Individual  units,  if  taken  individually,  will  oscillate  at 


a natural  frequency  of 


u) 


o 


with 


the  following  mode: 


time 

1 


amplitude 

r 


A 


V 


It  is  now  possible  to  express  the  velocity  of  propagation 


in  a mass/spring  line  in  terms  of  the  natural  frequency  of  an  individual 


unit : 


two  ...  V.2 

C = ~ 

If  the  "continuum"  of  blocks  is  now  viewed  as  a mass/spring 
system,  we  can  establish  an  equivalence  between  the  two  systems.  The 
natural  frequency  of  individual  blocks  follows  from  the  equations 
given  in  Section  3.4.  In  simplified  form  these  are: 

u : = t - oAt 

e 

m 

I I 

o :*=  C + eE*At 


The  natural  frequency  of  this  single  degree  of  freedom  system  is 


It  these  individual  blocks  are  connected  together  to  form  a 
line,  we  can  write  down  the  velocity  of  propagation  in  terms  of  wb  , 
using  equation  V.J. 


But  this  must  also  be  equal  to  the  continuum  wave  speed  given 

in  V. 1. 


m 


La 

•1 


V . 3 . 


where  ra  mass  of  block 
A = area  of  block 

The  derivation  above  makes  the  assumption  that  all  blocks  having 
the  same  overall  length  in  the  direction  of  propagation  will  all  have  the 
same  effective  mass  in  that  direction,  and  hence  the  same  natural  frequency. 
This  seems  physically  reasonable,  since  for  a plane  wave  to  remain  plane, 
the  response  time  for  blocks  spanning  the  same  distance  should  be  the  same, 


so  that  blocks  oscillate  in  phase. 
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The  tour  effective  masses  needed  in  Section  3.4  are: 


(i) 


-£(*.>■ 

4A  r 


where  i are  the  maximum  block  widths, 
i 


The  effective  masses  derived  above  must  necessarily  be  approximate 
and  are  not  intended  for  use  in  wave  propagation  problems.  However,  for 
dynamic  problems  where  the  wavelengths  are  larger  than  the  typical  overall 
problem  dimensions,  the  formulation  should  be  reasonable.  In  nearly-static 


problems,  of  course,  the  effective  masses  play  no  part. 


APPENDIX  VI  : STRESS  ROTATION  CORRECTION  TERMS 
VI-'.  Program  SDEM 

If  a block,  together  with  the  forces  acting  on  it,  is  rotated,  the 
internal  stresses,  referred  to  local  axes,  are  unaffected.  However  the 
stresses  expressed  in  global  coordinates  will  change.  It  is  common  in 
lagrangian  finite-difference  codes  to  apply  stress  rotation  correction  terms 
to  the  cone  stresses  at  each  time  step  in  order  to  allow  for  this  apparent 
stress  change  due  to  rotation.  The  correction  terms  are  derived  from  the 
tensor  transformation  equations  used  to  determine  stresses  in  a new 
coordinate  system  (indicated  by  a bar)  when  they  are  known  in  an  old  system. 
These  equations  are  as  follows: 


’at)  J x 


• J J 
dp  ia  jp 


...  VI  . I 


where  J is  defined  in  section  3.-1. 
rj 


When  the  angle  AO  between  the  coordinate  systems  is  small, 


J 3 t R At  , discarding  second  order  terms 

tj  iJ  ij 


m AO,  and  noting  that  AO-OAt 


witli  R defined  in  sect  ion  *.-l. 
i J 


Using  this  expression  for  in  VI. 1 gives: 


o 0,(5  + R At)  (5  t-  R .At) 

ij  ap  la  l.i  jp  jp 


0 t (0  R t v’  , R ,).\t 
ij  aj  ia  u<  jp 


Format.  The  coordinates  must  he 
given  in  a clockwise  direction. 

A CREATE  command  must  not  be 
given  alter  a CYCLE  Command 
has  been  given. 


_ 

. ;jp< 


These  new  stresses  correspond  to  a change  in  coordinate  axes. 
However,  in  the  case  of  a zone  rotating,  the  coordinate  axes  remain  fixed, 
and  the  zone  rotates  relative  to  the  axes.  Using  a negative  si  in  VI-2, 
and  changing  the  repeated  indices,  gives  the  changes  in  zone  stresses  due  to 
zone  rotation: 


A o . . = - (o,  R , + o . , R , ) At 

. kj  rk  lk  jk 


...  VI-3 


In  the  program  SDEM,  the  block  stresses  are  derived  from  the 
discrete  forces  acting  on  the  block  boundaries,  using  the  equation: 

c c c 

VF  * 

A ^ L J 


...  VI-4 


The  following  analysis  was  carried  out  to  verify  that  giving  a 
rotation  to  the  discrete  block, force  system  resulted  in  the  same  stress 
rotation  correction  terms  as  VI-3,  derived  for  a continuum. 


Consider  two  forces  acting  on  a block  that  rotates  through  an 


angle  AO: 


/\L^\  ZC0Sf»at) 

-1  t 


■ZSINflAfJ 


The  stress  that  would  be  calculated  by  1II-4  before  and  after 


the  rotation  are  as  follows: 


stress  I before  rotation 


alter  rotation 


F zcosd 
F zsind 
F zcosd 
F zsind 


(F  cosAd  - F sinAd)  (zcosd  - zsin0AS) 
(F  cosAd  - F sinAO)  (zsind  + zcosdAO) 
IF  cosAd  + F sinAd) (zcosd  - zsindAd) 
(F  cosAd  + F sinAO) (zsind  + zcosdAd) 


On  multiplying  out,  and  discarding  second  order  terms,  the 
differences  between  the  stresses  before  and  after  rotation  become: 


o 

II 

" (°12 

+ (^2  1^  ^0 

Ao  j 2 — 

(°11 

- 022)^^ 

Ac*2  i = 

(°11 

- 02 2 ) AO 

Ao  2 2 = 

(012 

+ o 2 i ) AO 

It  can  be  seen  that  these  correction  terms  are  identical  with 
those  of  VI-3.  The  terms  are  used  in  Section  3.4  in  the  calculation  of 
internal  stresses. 


.Mo 


VI..'  Program  DHUX-K 

The  correct  ion  ot  internal  st  r esses  duo  to  rnt.it  ion  in  program 
Dlil.OCK  is  idont  ical  to  tli.it  described  fot  SDEM  (formula  VI  . 1)  . 


llowovei  tin'  contact  force:;  require  a treatment  different  from  that 
of  the  stresses  since  the  correction  is  required  to  account  tot  two 
mechanisms:  a)  the  rotation  ot  the  surtace  normal,  and  b)  the  change  in 

surtaoe  normals  that  occurs  when  a grid-point  moves  from  one  edge  to  another. 


t.et  n,  and  ni  be  the  old  and  new  unit  normals  in  the  global 
coordinate  system.  Lot  t j and  t j be  the  old  and  now  components  ot 
the  contact  force  in  local  coordinates  (1|  shoal  force,  t , normal  force). 
Let  Kj  be  the  components  of  the  contact  force  in  the  global  coordinate  system. 


‘i  £"i 


I i a . K . 

1 i j J 


whet  e ,vij  n . , a | | 


a j "y  'Ml  'x2r  ''  1 2 


h i nee  a . i s ot  t lu'iu't  ma  1 , 
i I 

'ij  ’ 'kj  '\ik 


I . a , a I . 
l l k jk  ) 


A1TKNP1X 

Kl'MC 

SETUP 

NEXT 

pox 

CYC  IJ? 

CFORCF 

CRAi  K 
SPLIT 

nr  lot 
SCAN 

nr:  i. ent 

DETECT 

PELCON 

pump 

LIMIT 

EMPTYC 

EMI'TYP 


VI  1:  bUPROUTlNE  i!U1PF.,  PKOCKAM  RPMC 

Main  program 

Initialization  and  input  oi  probl  out 
size  arui  constants. 

Proof's;; i ng  of  input  commands . A 
return  is  made  whonovoi  comma  ini 
CYCLE  is  given. 

Classifies  blocks  into  the  boxes  that 
their  edges  and  corners  map  into. 

CYCLE  controls  t lie  main  calculation  cycle 
MOT I PC  computes  the  law  ot  motion  for 
a single  block;  PORIV  computes  the  con 
st  itntive  law  for  the  contacts  around  a 
single  block. 

Assembles  a list  ot  cent  act s foi  each 
block  for  subsequent  use  by  the  crack 
ct  i t or i on . 


Embodies  t ho  crack  or  1 t 01  ion. 

Introduces  the'  cr  ark  into  the  selected 
block,  arui  performs  all  necessary 
housekeeping  dut i os . 

Plots  a "snapshot"  ot  the  problem  geoniot 

Determines  which  boxes  each  block  edge 
maps  into. 

Peletes  obsolete  box  entries. 

Pot  nets  and  updates  contacts  for  the  two 
edges  ad  laeont  t o a corner. 

Peletes  obsolete  contacts. 

Prints  a dump  ot  memory  or  linked  !is( 
data . 

Checks  whether  a I oquost  tor  more  tnomol  y 
is  possible. 

Croat  i’s  a new'  contact  data  group. 

Creates  a new  "double". 


FINISH 


Tot  mi  nates  the  program. 


Tin'  main  uubrout  inos  .no  call  mi  as  1 allows: 


niiMPc 

I 


DKl.KNl' 

I 

HOXC 


11K1.KNT 


DKU'ON 

I 

Ol-ITKCT 


HOXC 

I 

SCAN 


PK1.CON  Hi 


STMT 

l 

CRACK 

I 


FORD  MOT IOC  CFORCK 

1 J , 1 


NKX'IX 


SKTUV 


CYCl.Kl 


• 1 
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APPENDIX  V1U  : 1,1  ST  OF  SYMBOLS  USED  IN  CHAPTER  o 


The  main  symbols  used  in  the  text  are: 


d (m  n) 
E 

I 
E 

I 
E 

K 


N 


E 

K 

Nl, 

’Sill 

K 

III 


1 

oc) 

R 


P 

*.  v 

a,  S 

5 


iS 


ij 

N 


ij 

lv 

\,  u 


distance  trom  m to  n 

. t h , 

l component  ot  the  torce 

- normal  force 

tangential  force 

kinetic  energy 

normal  stiffness  during  loading 
normal  stiffness  during  unloading 
shear  stiffness 


mass  of  node  N 

=•  mass  of  zone  M 

. t h , 

r component  ot  the  unit  normal 

'of  the  order  of 

components  of  the  rotation  tensor 
arc  length 
displacement  tensor 
velocity  vector  tor  node  N 
= P-wave  velocity 

two-dimensional  orthogonal  coordinate  system 

distance  ratios 

Kronecker  delta 

normal  displacement 

tangent  ini  displacement 

increment 

components  of  the  strain  tensor 
volumetric  strain 
I»ime  constants 


ij 


mass  density 

components  of  the  stress  t ensoi 


IJ 


elastic  part  ot  the  stress  tensor 
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APPENDIX  lx  : PROPERTIES  OF  TRIANGLES  USED  IN  PROGRAM  PBbOCK 

(1)  The  center  of  gravity  of  a triangle  is  at  one  third  of  the  distance 
between  any  side  and  the  opposite  corner. 


a 


(2)  The  coordinates  of  the  center  of  gravity  of  a triangle  are  t ho  average 
of  those  of  its  corners. 


x 


(J)  The  center  of  gravity  of  a triangle  does  not  change  if  its  mass  is  evenly 
lumped  in  its  three  corners. 


(4)  Each  median  divides  a triangle  in  two  triangles  of  equal  area.  The 


three  medians  divide  a triangle  in  six  triangles  of  equal  area. 


Obvious  since  the  center 
of  gravity  is  t tie  inter- 
section of  all  lines  which 
split  the  mass  of  the 
triangle  in  two  equal  parts 


(?>)  The  center  of  gravity  of  a triangle  is  the  point  of  intersection  of  its 


medians . 


Obvious 


(6) 


The  three  medians  provide  a natural  lumping  ol  the  mass  ot  t tie  triangle 
in  its  ttiree  corners  which  does  not  change  the  center  of  gravity. 


Obvious 


^2^ 


(7)  If  a new  grid  point  (4)  is  created  and  the  triangle  (123)  split  into  two 


masses  s 

ilioil  1 d 

be : 

Let  M 

1 

ml  = T 

ma  s s 

(123) 

a _ b 

c " c 

M 

= A 

mass 

(U4) 

n 

= 01“ 

3 

1 

m2  = 1 

ma  a s 

(234) 

m3  = 7 

mass 

( 134) 

1 

i - mass 

(234) 

I 

ni  = - 

ma  s s 

(1  14) 

1 

4-  *“  mass 

(234) 
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APPENDIX  X : INPUT  CARDS  FOR  PROGRAM  D BLOCK 


The  required  input  stream  is  as  follows: 


1.  One  card  (bllo) 


NMAX,  MMAX,  1MAX,  I FLAG,  KTOT,  ICONT 


if  I FLAG  = 1 , GO  TO  6 
it  I FI  AG  = 2,  GO  TO  12 


2.  NMAX  cards  (4F10.0) 


(X  (N) , Y (N) , XD ( N ) , YD (N)  , N=1,NMAX) 


3.  NMAX  cards  (UFIO.O) 


(XX (M),  YY (M) , XY (M) , AM ( M ) , LAME1  (M)  , 
LAME2  (M)  , CORES  (M),  TANPill  (M)  , TANPS1  (M)  , 
M=1 , MMAX) 


•1.  NMAX  cards  (^IMAX'llO) 


( ( MAN ( N , I ) , 1=1 , 1MAX) , N=1 , NMAX) ) 


5.  MMAX  cards  (3110) 


( (NAM(M,J)  , J = 1 , 3) , M= 1 , MMAX ) ) 


6.  LCONT  cards  (3110,  FlO.O) 


(IMP (L) , N2M (L) , N3M(L) , XNC(L),  L=l, LCONT) 


7.  One  card  (8FIO.O) 


STNL,  STNU , DN,  STSH,  XMU 


8.  One  card  (HO,  4F10.0,  2110) 


NITER,  FRAC,  GRAV , ARAT,  TFRAC, 
NPRI , NPLOT 


9.  Two  cards  (8110) 


(ITPL(I) , 1=1 , lO) 


lO.  One  card  (2F10.0) 


SCALEX,  SCALEY 


11.  One  card  (2F10.0) 


RMIN,  FMIN 


END  OF  INPUT  STREAM 


12.  One  card  ( 110) 


N BLOCK 


13.  One  card  ( FlO.O) 


The  next  two  cards  are  repeated  once  for  each  block 


N BLOCK  times 


14.  One  card  (HO) 


18.  NCORN  cards  (3110)  (LIST(1,I),  X(I),  Y ( I ) , I=l,NCORN) 


16.  One  card  (FlO.O) 


GO  TO  b 


The  meaning  of  the  FORTRAN  variables  is  given  in  Appendix  XVI. 


■ 
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APPENDIX  XI:  SUBROUTINE  GUIDE  - Program  1'HUVK 

The  to l lowi ng  tree  illustrates  the  manner  in  which  the  different 
routines  are  called: 


A brief  description  of  each  subroutine  follows: 

DBLOCK 

Is  the  driving  routine  for  SETUP  and  CYCLE. 

SETUP 

Reads  in  and  prints  all  the  information  needed  by  the  program. 
Initializes  all  variables. 

Assigns  grid  points  masses. 

Computes  the  time  step. 

In  problems  where  more  than  one  block  exists  SETUP  also  calls  CREATE 
to  create  new  nodes  at  the  contacts  as  required. 


1 


CYCI.E 


Drives  the  main  interaction  loop. 

Calls  MOTION,  STRESS  every  cycle;  OUTPUT  when  needed. 
Prepares  files  for  the  plotter. 


MESH 

Reads  in  the  corners  defining  the  geometry  of  each  block  and  othei 
information  needed  for  creation  of  the  mesh. 

Decomposes  each  block  into  triangles. 

Calls  REDUCE  and  NICE,  wh,  tefine  the  mesh. 

REDUCE 

Splits  triangles  into  two  until  all  edges  are  smaller  than  a 
spec  i f i ed  l eng  fir. 

NICE 

Rezones  each  node  until  the  coordinates  of  all  nodes  (excluding 
those  on  the  edge  of  the  block  coincide  with  the  average  of  the 
coordinates  of  the  surrounding  nodes. 

INPUT 

Creates  a mesh  consisting  of  a regular  distribution  of  triangles. 

CREATE 

Creates  a new  node  and  zone  when  a contact  requires  it. 


Redistributes  mass  and  momentum  while  preserving  their  balance. 
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Assigns  mechanical  properties  to  the  new  zone. 

Establishes  the  required  logical  links  for  the  contact  created 
and  modifies  those  of  other  contacts  which  require  changes 
due  to  the  appearance  of  the  new  one. 

MOTION 

Stresses  are  added  to  got  the  resultant  force  at  each  grid 
point.  This  provides  accelerations;  time  integration  yields 
velocities. 

Velocities  are  corrected  by  either  one  of  two  reasons: 

(a)  if  there  is  interaction  between  blocks,  I NT’ RAC  is  called; 

(b)  boundary  conditions  in  velocity  are  applied. 

Time  integration  of  velocities  yields  displacments . 

STRESS 

Computes  incremental  rotations  and  strains  from  velocities  for 
each  individual  zone. 

Obtains  the  elastic  stress  increment,  the  viscous  one  (when 
damping  exists)  and  the  modification  due  to  rotation;  all  2 
are  compounded  to  obtain  the  now  stresses. 





L’f>o 


OUTPUT 

Prints  the  main  variables  at  pre-selected  iteration  numbers. 

Calls  PLOTM  to  create  a plot  of  the  mesh  at  pre-selected 
iteration  numbers. 


Creates  files  for  plotting  time  histories  of  variables. 

I NT  RAC 

- Computes  accelerations  and  velocities  due  to  forces  of  interaction 
across  blocks. 


1NTKA1 

This  routine  is  the  most  complex  in  the  program.  A flow-chart  of 
its  functions  is  presented  in  Figure  XI. 1 to  help  visualize  the 
procedures.  As  can  be  seen  in  the  flow-chart,  the  routine  is 
basically  a loop  extending  to  all  contacts.  For  each  one,  relative 
displacements  are  computed,  and  the  appropriate  routine  is 
called  to  calculate  interacting  forces  from  those  displacements. 
Besides  those  functions,  1NTRA1  also  breaks  contacts,  "tickles" 
nodes,  deletes  them  or  calls  CREATE  to  provide  new  ones  where 
needed.  All  the  logic  for  the  different  types  of  rezoning  is 
embod i ed  in  this  rou t i ne . 


BOUNPY 

Applies  the  boundary  conditions  in  the  form  of  velocities.  These 
must  be  explicitly  built  into  BOUNPY  by  means  of  FORTRAN  statements. 


A 
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APPENDIX  XII : 

HED  (20) 
NBLOKM 

NBOXES 
Ml, M2. . .M7 
N BLOKS 
NCYC 
MCYCLE 
NEMPT 
RFLAG 
UELAG 

EFLAG 

TFRAC 

TDEL 

IBOXFS 

J BOXES 

BSIZE 

XSIZE 

YSIZE 

UDMAX 

UMOST 


I M — I — — Tr  | 


LIST  OF  VARIABLES  AND  PROGRAM  LISTING  FOR  RBM 


User  supplied  problem  heading. 

Maximum  number  of  blocks  allowed. 

Sets  storage  according  to  this  value. 

Number  of  boxes  (=  IBOXES  * JBOXES) 

Storage  boundary  markers. 

Number  of  blocks  currently  defined. 

Number  of  cycles  requested  on  current  CYCLE  command. 
Current  cycle  number. 

Pointer  to  start  of  empty  list. 

Reboxing  flag.  Indicates  when  reboxing  is  required. 

Updating  flag.  Indicates  when  updating  of 
coordinates  is  required. 

Error  flag.  Indicates  when  an  error  condition  has 
been  detected.  (Currently  not  used) 

Fraction  of  critical  timestep. 

Calculation  timestep.  TDEL  is  equal  to  the  critical 
timestep*  TFRAC. 

Number  of  boxes  in  I-direction. 

Number  of  boxes  in  J-direction. 

Size  of  one  box  (boxes  are  square) . 

Width  of  box  area  (=lBOXES  * BSIZE) 

Height  of  box  area  (=JB0XES  * BSIZE) 

Maximum  velocity  detected  in  the  current  calculation 
cycle . 

Fictitious  displacement,  formed  by  summing 
UPMAX*TDEL  and  used  to  trigger  the  update  flag. 
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STIFN 

Normal  contact  stiffness:  Currently  is  the  same 
for  all  contacts. 

STIFS 

Shear  contact  stiffness.  Currently  is  the  same 
for  all  contacts. 

FRIC 

Contact  coefficient  of  friction.  Currently  is 
the  same  for  all  contacts. 

BETA 

Stiffness-proportional  damping  constant. 

BDT 

BETA/TDEL 

ALPHA 

Mass-proportional  damping  constant 

CONI  ) 

CON  2 1’ 

Constants  used  in  mass-proportional  damping. 

GRAVX 

Acceleration  due  to  gravity  in  x-direction 

Units  are  acceleration  units,  not  G's. 

GRAVY 

Acceleration  due  to  gravity  in  y-direction. 

LOC  1 

LOC  2 

Addresses  passed  to  the  DUMP  routine  for  indicating 
the  information  to  be  printed. 

NUPDAT 

Counter  of  number  of  updates  performed. 

LBLOCK 

Length  of  the  commm  block  /CBLOCK/. 

i 


vkix;kah  \ i:>rm;  hum 


KOKThAN  lv-PLUS  VO/-M  17:00:21  lb-M-b-Zb  PAct  1 

HBM.LST  / 14/TK  :tU.OCKS/*K 

0001  PHUGKAM  HHM 

C 


c Hlv,  10  01, IKK  MOPtL . 

C KKKfcL Y TK  ANSLATtl)  INTO  1 UK  THAN  BY  

C P • J • Ht*  Wh.Sfr  OHO , KKUM  AN  OHHiJNAL  PKUGK AM  - 

h\  P.  A.  CONI'  ALL.  -- 

C- PAMtS  ANO  MUUKt,  LONDON.  

0 VKHMUN  1.1,  J AND  AH  Y 1078.  


000  i COMMON  A (.1000) 

0001  UlMhNSlUN  1 A ( 1 ) 

0004  tOO  l V ALfc.NCt  ( A , l A ) 

0005  (K)MMUN  / CP LOCK / HI*  l>  (,  20  ) , NBLOKM  , NBUXtS  , M \ , M 2 , M J,  M4  , Mb  , Mb  , M 7 , 

, NBLOKM  , NCYC  , MCYCLt  , N*  MPT  ,HH  *v, , HI-  LAo  , »•  I-  LAc  , 

. TFH  AC  , TOLL  , 1 HOXtS , JbOXtS  , HSI  <>  ,lMO,  YSI/t » 

. UPMA  X , IlnO.ST  , ST  IF  N , ST  II  S,  I-  H 1C  , ALPHA  , HI  T A , PIT  , 

. COM  , C0N2  , N VAHB  , M-  H Ait , NPK  , NPH  , 

. v.K  A V X , (,HmV  1 , LUC  1 , LUC  2 , M'PPAT  , LHI  IKK 


000  b 

AL  Hh L A a, Uf LAG, h FLAG 

000  1 

c 

DATA 

M IF N , M'  It  S , 1-  H l C , 01  T A / / ♦ 1 . Ot  8 , 0 . 0 , 0 . 0 / 

oo  oh 

DA  l A 

i,H  A V V , OH  A V X / -0 . 8 1 ,0.0/ 

0 0 0 H 

DATA 

M J , MCYCLfc  , NUPPA  V , LPLl'CK  / JOOO  , 0 , 0 , b 

0010 

DA  l A 

HU,  AC  , Ut'LAG,  tKLAO/  A A LSt  . , . 1 HOI  . , . I-  Al.St 

00  1 1 

c 

CALL 

plots u ,o;s, 'CM  • ) 

00  1 2 

CALL 

St  l 0 P 

00  1 J 

10  CALL 

N t A 1 

001  4 

v.  ALL 

CYCLt 

0015 

(. 

uuTU 

to 

001b 

1 ND 

- '*\.S  - 


tOttrNAN  lV-0l,Ub  V 0 <!  - b 1 17:00:32  lb-tth-7b 

KKM.LSr  / 1 4/  1 K : hi, OCHS/ «« 


0001 

vSUOKUUriNfc  8KTUK 

0002 

CUMMUN  A 1 3000) 

000  3 

l'  IMtNblUw  l A 1 1 ) 

0004 

tOUl VALfcNCt  l Ai  1 A ) 

000b 

CUMMUN  /CHLUCK/  HH)(  20  ) , NbLUKM  , NBUXfc  S,Ml,M2,Mi,M4, 

. NBLUKS, NC YC,MCYCLt , NtMFT,h* LAC , OH 

. 1 KW  AC  , TDKL,  lHUXiS,  JbUXti>,bbl2e  , XM 

. Ul)M  A X , UNO.S  1’ , M 1 ) N , M 1 KS  , ) h U , A13'H  A 

. Cl*M  .CUN  2 , NV  AHH  , N*  K Ao  , NON  , NPK  , 

. CKAVX  , CHAV  Y , LUC  1 , LUC 2 , NUHl'AV  , LbLUC 

000b 

LOGICAL  «►  LAC, Oh  LAC, KKLAC 

0007 

wKiTKib,  2000) 

00  OH 

KfcADlb, 1000)  *UHD 

0000 

l K 1 wUHD . r 0 . 4HM'Ah  ) CUTU  20 

00  10 

n i*OKi).tii.<»Hiu  sT)  until  10 

0011 

»K  1 It.  1 b , 1000  ) 

00  1 2 

ST  UP 

• Ktb  TAH  r * K UN 

001  J 

10 

Nt ADI  1 ) 1 HKD l l ) , 1 = 1 , Lb LUCK  ) 

0014 

KtAl'l  11  (All),  1 = 1, 17) 

001b 

t* K 1 1’ K 1 b , 2001  ) MfcD,  MCYCLl- 

00  id 

Kt  I'llNlV 

• bT  AN 1 ' HUN 

001  7 

2 0 

KC  ADI  b,  1001  ) HI  0 , NBLUKM  , l Hi  * X KS  , J HU  X*  b , 1 bb  l . r , l>  h Ax 

001  H 

NUUXKb-  1 ml\t  b*  JBUXt  b 

OOH 

II.S  1 : 1 rtbl  it 

00  2 0 

Xb  1 ZK-  1 Mu  X Kb* DM  ;.t 

00  2 1 

v .s  i it:  = joint  s»n.s  i . t 

00  2 2 

wHllfc  lb, 200  2)  HtD  , NBLUKM  , IbUXKb  , JbllXt  b . NDUXtb  , 

. 1 HS  I It  , XM  It  , V b I Ik.  , I>  K Ax 

C • " - ~ 

00  2 3 

UMUM  -0.0 

00  2 4 

iMt*LUKb  = 0 

00  2 b 

M 1 - 1 

OO  2b 

M2-N  1 ♦ NBLUixM 

00  2 7 

« 1-M2 

00  2 H 

H K r 0 N N 

00  2*1 

1000 

KUKM A V l A 4 ) 

00  JO 

100  1 

KilHM  A V l 20  A 4 / 4 l 1 0 , K 1 0 . 0 ) 

00  31 

2 000 

fOKrtA  r(  JuH  , 2SM  K llM  - Kli.ll'  IlLlltK  Kill'll.. 

. 3 0 X , 2 b H 

00  3 2 

2001 

H»KMA  r ( 1 X , 2044/ / 30X  , iUHKKbl  AKl  KIN.  t CYClKb 

00  3 3 

200  2 

r UHM A r 11 x , 20 A4/ / 

. 30X  , 24HMA  X 1 MOM  ND  M tH  K Ok  BlUCKb.lb/ 

. 30X  , 24tlHUXr.b  1 N \-DlNtx'1lUft  ,1*' 
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30X, 24HBUXFS  IN  T -U1RKCT 1UN  ,1b/ 

30X , 24HTOTAL  NUROtR  01  BOXKS  ,1b// 
JUX.24HSXZK  01  SINdl,!.  HOX  ,1b/ 

30X  , 24Hk)NOBLtN  S1ZF  IN  X-U1KN  ,M>.0/ 
30X  , 24HRHU6L1.  R SIZt  IN  *-l)lRN  ,16.0// 
30X,  24HTTRt:STt.F  RO L T I RL 1 1 K ,10.3//) 


3000  t'UKMAT  1 4 B H •»♦  tRKUR 


' START ' OR  ' RtSTART'  CARL)  NOT  FOUND) 
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► UK  THAN  lV-PLUS  V02-bl  17:00:bb  lb-ktb-7H 

NBM.L6T  / 1 4/ TK : HLOCKS/nK 


SUdROUT  1 NE  NfcXl 


COMMON  AlJOOO) 

DIMENSION  I A ( 1 ) 

LOU  1 \/  ALENCE  ( A , 1 A ) 

COMMON  /CHLOCK/  HEDC  20)  , N bl.OKM  , NBUXkS  # M 1, M2, MJ,M4, Mb, Kb, M7, 

N BLOKS,  NCYC,MCYCLE , NEKP1  , Kk  LAu,  Uk  LAG,  EEL AG, 
Tk*KAC,TDEL,  1 BOXES,  JBOXk  i> , BSl  ZE,  X5 1 ZE  , Y SI  L t , 
UDMAX , U MOST,  Silk  N , STIES,  k K1C  , ALPHA  , HE1  A , Dl'  T , 
CONI  ,CUN2, NVAKB, Nk  RAG, NbR  , NRK, 

GNAVX  , GKAV  Y , LOCI  , LUC2,NUPDA  1’ , l.  BLOCK 
LOGICAL  Kk LAG,Uk LAG, k k LAG 


DIMENSION  CAKDC20) , MUR 0(20) , X ( bO  ) , Y ( bO ) 

DATA  WORD  / 4HCRE A , 4HDELE , 4HDUMP , 4HC YCL , 4 MSTUE , 
. 4HHLUT , 4H444*, 4HKSET, 4H I SET , 4HCHEC , 

. 4 H v»K  A V , 4 MSI  lk  , 4 H P A M E , 4Hk  K 1 C , 4HZEKO  , 

. 4HL0AD, 4NZZZZ, 4NZZZZ, 4HZZZZ , 4HZZZZ/ 


R t.  A l)  NEXT  CARD 

10  K E A 1)  ( b , I U 0 0 ) CAKD 
* K 1 T E ( b , 2 0 0 0 ) CAKD 
DO  20  1=1,20 

lkCCAKD(l). EQ • MOKD Cl))  GOTO  Jo 
2 0 CONI*  1NUE 

MrilTECb, 3000 ) 

GOTO  10 

JUME  TO  AEPKUHK 1 A 1 fc  CUDk  -- 

JO  oOTO  l 100, lbO,  200, 2bO, JOO, 

. JbO , 400 , 4b0 , bOO , bbO , 

. 600, BbO, 700, 7 b 0 , K o 0 , 

. BbO,  10,  10,  10,  10),  1 


4 0 nk 1 1EC 6 , J001  ) 

GOTO  10 

CKEATk  A Nk*  BLOCK 

100  NBL0KS=NBL0KS*1 

DECODE  ( 40 , 100  1 , C AKl> ) NC,KHO,  Jk  I X 
K E A D ( b , 1002)  (XCl),Y(l),I=l,NC) 

MR  1 TEC  6, 200  1 ) (X(  I ) , Y ( 1 ) , 1 = 1 ,NC> 
12  = M J 

1 A(NdL0KS)=12 
lk (JEIX.NE.O)  1 A C 1 2 ) = 1 
1 A l 12*1 )=nC 
AC124lH)=l .0 
m(  12+lvO=0«0 


AKkA  ANl>  Ck.NlKOlD  Ok  THIS  BLOCK 

AKeA=(X( 1 )-XCNC) )»( * C 1 )*Y  CMC) ) 

Y C=  C X ( 1 ) - X l NC ) ) ♦ U Y 11 ) - \ C WC ) ) * C Y C 1 ) ♦ 2 . 0 » Y C NC ) ) ♦ J . o ♦ ) l NC ) ♦ ♦ 2 > 
XC= ( Y ( 1 ) - Y l NO  ) ) * ( ( X l 1 ) -X l NC  ) ) * l X l 1 ) ♦ 2 .0*\l NC ) ) ♦ J . 0* X i \c  ) » ♦ 2 > 
DO  110  1=2 , NC 

AKk  A = AKEA4( X C 1 )-X  C I- 1 ) ) ♦ C Y l 1 ) 4Y ( 1-1  ) ) 

YC=YC>( XC l)-Xll-l))*(CYll)-Y(l-l))4(YCl)^2.0*\Cl-l)) 

. ♦ J • 0 * Y ( l-l  ) *42 ) 
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HBM.LST  /lH/TRlBLUCKS/RH 

003S  XC=XC+l Yl 1 ) - Y C 1-1  ) )*l  1X1 1 )-X(  1-1 ))*IX11  ) 

. ♦ 3.0*X( 1-1 ) *»2  ) 

00  3b  MO  CUNT  1 NUE 

0037  AHEA=0.S»AHKA 

001b  YC=YC/tb.O+AHEA) 

0038  XC=-XC/tb.O*AREA) 

0040  AU2  + 2)  = XC 

0041  Atl2+3)=YC 

0047  At  12+1 1 )=AREA»RHO 

C l,UCAI,  COORDINATES  FUR  THIS  HLOCK 

004J  M3=H3+20 

0044  AlM3)=Xll)-XC 

0045  AIM3+1 ) = Yll )-YC 

004b  OU  120  1=2, NC 

0047  AlM3+3)=Xl 1 )-XC 

004b  AlM3+4)sY(l)-YC 

0040  AlM3+2)=SURTllAlM3+3)-AlM3))**2+lAlM3+4)-AlH3+l))*»2) 

0050  120  H J = M J + 3 

0051  A(M3  + 2)=SURT( t A U 2 + 20 ) -A t M3 ) )»*2+( At  12  + 21 )-A tM3+l ) )**2) 

0052  M 3 = M 3 ♦ 3 

C MOMENT  UK  INERTIA  

0053  HMU1=0.0 

0054  1C=1 2+20 

0055  DU  130  NP  = 2 » NC 

OOSb  AREA  = AUC)*AtlC+l)  ♦ t A t 1C+ 3 ) -A t IC ) ) » t A t 1C+4 ) ♦ A ( 1C+ 1 ) ) 

. - At 1C+3J+AI 1C+4) 

00S7  AREA=0. S4AREA 

OOSb  TEMP=AtlC)»»2+A(  IC+1  )**2+Al  1 C + 3 ) **2  + A ( 1 C + 4 ) * *2 

. +AtlC)*AtlC+3)+AtIC+l)*AtlC+4) 

OOSO  RM01=HMOI  + AHF.A»TLMP/6.0 

OObO  130  1C= 1C+3 

00b 1 AKtA=AtIC)*AtiC+l ) ♦ t A t 1 2+20 ) -A t 1C ) ) * l A l 1 2+ 2 1 ) ♦ A t 1 C+ 1 )) 

. - At  12  + 20) +AI  12  + 21  ) 

00b2  AREA=O.S+AREA 

00  b 3 TEMF=AC 12+20  )**2  + AU2  + 21)**2  + AtlC)*»2  + A(IC+l)**2 

, +At 12  + 20 )*A tlC ) ♦ A t 12  + 21 )*At IC+1 ) 

00b4  HMUI=RMUI+AREA»TEMP/b.O 

OObS  AU2  + 12)  = HM01+RHO 

C 

OObb  WHITE lb, 2002)  XC,YC,All2+ll),AtI2+12) 

00b 7 GOTO  10 

C DELETE  A HLOCK  

OObb  ISO  GOTO  40 

C Dll  HP  NEMURY  AS  REQUESTED 

00b 0 200  OECUDE130, 1003, CARD)  L0C1.LUC2 

0070  1FILOC2.NE.O)  GOTO  220 

0071  LUC  2 = LUC 1 

00  7 2 LUC  1 = 1 

0073  220  CALL  DUMP 

0074  GOTO  10 

C CYCLE  ROUND  M0T1UN  AND  KURD 

0075  2S0  DECUDEt 20, 1001 .CARD)  NCYC 

007b  IFINCYCLE.EO.O)  CALL  HOX 

0077  RETURN 

C STOP  COMMAND 

0078  300  CALL  FINISH 
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C PLOT  COMMAND 

0079  3b0  CALL  BPLOT 

0080  GOTO  10 

C RETURN  TO  PHASE  1 

0081  400  CALL  SETUP 

0082  GOTO  10 

C SET  REAL  DATA 

0083  4b0  DECODEC30, 1004, CARD)  1ADR.VAL 

0084  IF  ( 1ADR . LE . 0 . OR . 1ADR.GT.M7  ) GOTO  480 

008b  A t 1 ADR ) = V AL 

0086  GOTO  10 

0087  480  RRlTE(b,3002) 

0088  GOTU  10 

c SET  INTEGER  DATA 

0089  bOO  DECODEIJO,  1003, CARD)  1 ADR , 1 V AL 

0090  I F C IADR.LE.O.OR. IADH.GT.M7)  GOTO  480 

0091  IA(1AUR)=1VAL 

0092  GOTO  10 

c MOMENTUM  N ENERGY  CHECK 

0093  bbO  CALL  CHECK 

0094  GOTO  10 

C GRAVITY  

009b  600  DECODE(30, 100b, CARD)  GRAVY, GRAVX 

0096  GOTO  10 

C CONTACT  STIFFNESSES  

0097  bbO  DECODEC30, 100b, CARD)  STIFN.ST1FS 

0098  GOTO  10 

C RAYLEIGH  DAMPING 

0099  700  DECODElbO, 100b, CARD)  FRAC , FRED , 1F1 , 1F2 

010 0 PI2=b.0*ATAN(1.0) 

0101  ALPHA=P12*FRAC+FRE0 

0102  HETA=FRAC/(PI2»FREU) 

0103  1FCIF1.EQ.0)  GO  TO  710 

0104  ALPHA=0 . 0 

010b  RKITE(b,3003) 

010b  710  IFCIF2.EQ.0)  GO  TO  720 

0107  HETA=0.0 

0108  WRI TECb, 3004) 

0109  720  IFCMCYCLE.EO.O)  GO  TO  10 

0110  BDT=HETA/TDEL 

0111  CON1=1.0-ALPHA*TDEL/2.0 

0112  CON 2=1 .0/( 1 .0+ALPHA+TDEL/2.0) 

0113  GOTO  10 

C FRICTION  COEFFICIENT 

0114  750  OECODEC20, 100b, CARD)  ERIC 

011b  GOTO  10 

c ZERO  ALL  VELOCITIES 

0116  800  DU  820  NB=1 , NBLOKS 

0117  I2=IA(NB) 

0118  A(12+b)=0.0 

0119  A C 1 2 + 6 ) =0 . 0 

0120  A(l2+7)=0.0 

0121  820  CONTINUE 

0122  GOTO  10 

C — --- — SET  BLOCK  LOADS 

0123  BbO  DECODE140, 100b, CARD)  F X , F Y , N B 


L 


j 


FORTRAN 
HBM  . UST 

0124 

012b 

0126 

0127 

012  0 
012V 

0130 

0131 

0132 

0133 

0134 
01  3b 

0136 

0137 
0130 

0139 

0140 

0141 

0142 
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/14/TR:BLOCNS/NH 

I2=1A!NB) 

A!12+16)=FX 
A(U«17):K 
GOTO  10 
C 

1000  FORMAT!20A4) 

1001  FORNATU0X,I10,F10.0,110) 

1002  FORMAT l Oh  10.0) 

1003  F0KMATU0X.2I10) 

1004  FORMATilOX.IlO.FlO.O) 

100b  FURMAT(1uX,2F10.0) 

1006  FORMAT!  10X  , 2F10. 0, 21 10) 

2000  F0HMAT!1X,4H+**  ,20A4,4H  ♦♦♦) 

2001  FORMAT!lX,411H!,tl2.4,lH,,tl2.4,3H  ) )) 

2002  F 0 H M A T ( 1BH  XC , VC , MASS , RMOl  :,1P4L12.3) 

3000  FORMAT ! 2bH  • 1 1 tRROR  : 1ULKGAL  COMMAND) 

3001  F oRMA'l  ( 34H  111  CKROK  : COMMAND  NOT  AVAILABLE) 

3002  FORMAT! 33H  111  tRROR  : ADDKtSS  OUT  Of  RANGt) 

3003  FORMAT! 10X, 29HMASS  DAMPING  TtRM  StT  10  ZtRO) 

3004  FORMAT! 10X , 34HSTlFFNtSS  DAMPING  TtRM  StT  TO  ZtRO) 


PAGt  9 


0143 


tNU 
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NBM.LST  /14/T«:BL0CKS/»B 


0001  SUBKOUTINE  BOX 

C 

C ALL  BLOCKS  HAVE  BEEN  CHEATED, 

C BLOCKS  CAN  NON  Bt  BOXED  

C 

000  3 COMMON  A 13000) 

0003  DIMENSION  IAll) 

0004  EGUI VALENCE  (A,1A) 

0005  COMMON  /CBLOCK/  HED 1 30 ) , NBLUKM , NBOXES , M 1 . M3 , M3 , M4 , MS , Mb , M7 , 


NbLOKS,NCYC,MCYCLE,NEHFT,HFLAG,UELAG,EFLAG, 
TFBAC.TDEL. I BOXES, JBOXES , BS 1 ZE , XS 1 ZE , YS13E, 
UDNAX,UMUST,STIFN,ST1FS,EH1C,ALPHA,BETA,BDT, 
CONI ,CON3,NVA8B,NFKAG,NbH,NPK, 

GHAVX.GKAVY ,L0C1 , LOC3 , NUPDAT , LBLOCK 


000b  LOGICAL  HE L AG , OFLAG , EFLAG 

C 

0007  M4=M3+NBUXES 

0008  MS  = M4 

C INITIALISE  BOX  PUINTEKS  

0004  11=M4-1 

0010  DO  10  I = M3  , 11 

0011  10  1A 1 1 ) =0 

C LOOP  ON  EACH  BLOCK 

0013  DO  SO  NB  = 1 , NBLOKS 

0013  I3=1AINH) 

0014  NC=IAC13»1) 

0015  IC  = 1 3t30 

C LOOP  ON  EACh  COKNEH 

001b  DO  40  NPsl.NC 

0017  X=A(13+3)*A(1C) 

0018  Y*A( 1 3+3 ) +A ( I C ♦ 1 ) 

0014  1B0X=M1N01 1FIXIX/BSI3E)+1 , 1BOXES) 

00  30  JBUXiMlNOllFIXlY/BSliE)  , JBUXE'S-1  ) 

0031  NBOX=JHOX*IBOXES+1BOX 

0033  13=M3+NBOX-l 

0033  IAIMS+3)=1A113) 

0034  1AI 1 3 ) =MS 

0035  1 A 1 M S ) -NP 

003b  1A1MS+1)=NB 

0037  MS=MS+3 

0038  IC=ICf3 

0039  40  CONTINUE 

C 

0030  SO  CONTINUE 

C 

0031  Mb-MS+NBLOKM 

0033  DO  bO  I =MS , Mb 

0033  bO  1AU)=0 

C CKEATE  EMPTY  LIST  TO  END  OE  MEMUHY 

0034  NEMPTsMb 

0035  lb=Mb+4 

003b  DO  80  I=Ib,M7, 13 

0037  J=1 

0038  1A11)=I»4 

0034  80  CONTINUE 
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HBM.USr  /X4/TK:bLOCKS/«K 

0u40  1 A ( J ) =0 

■ C OtTICKMINt  TihtSItP 

0041  TDk.L=1.0t20 

0042  DO  100  NB  = 1 , NBLOAS 

0043  12=IACNH)+1  1 

0044  TN=2.0*SUkTCA(12)/STIFN) 

004b  T5  = 2.0*S0KT(AtI2)/SUFS) 

004b  T0EL=ANIN1(TDEL,TN, TS) 

0047  100  CONTINUE 

0040  TUEL=TDtL*TFKAC 

0040  «Kirt(b,2000)  FUEL 

C SET  UP  LfAhPl  NG  TEKMS 

OObO  BUT  = BETA/TDF.L 

OObl  CON1=1.0-ALPHA»TDEL/2.0 

OOV2  CON  2 = 1 .0/  Cl  .04  ALPHA*  TOLL/ 2.0) 

C 

00b3  K E T u N N 

C 

00b4  2000  FONNATC JOA, 17H  TIME  INCREMENT  =,lPfcl2.4) 

C 

OObb  fc.NO 


Applies  the  boundary  conditions  in  the  form  of  velocities.  These 
must  be  explicitly  built  into  BOUNDY  by  means  of 


FORTRAN  stut  r 


ment s. 
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0001  SUBKUUT 1 NE  CYCLE 
C 

C- DKIVER  FUN  ITERATIONS  

C 

0002  COMMON  A l 3000 ) 

0003  DIMENSION  1 A C 1 ) 

0004  LOU  1 V ALk.NCt  l A , 1 A ) 

000b  COMMON  /C6L0CH/  NED l 20 ) , NBLOKM , NBOXE S , M 1 , M 2 , M 3 , M4 , Mb , Mb , M7 , 


NBLUES,NCYC, MCYCLE , NEMPT , NFL AL , UL LAG, t Ft AG, 
TFW AC , TULL , 1 BOXES , UbOXES , NS  I 2F , X$ 1 Zt , YS1/E, 
UOMAX,UMOST,ST1FN,ST1FS,FNJC,ALPNA,BFTA,BDT, 
CONI , CON2 , NV AKB , NFNAG , NBN , NPK , 

ON AV  X , OKA V Y ,LOCl , LOC2 , NUPDAT , LBLUCK 


0006  LOGICAL  NFLAG,Ufr LAG, t FLAG 
C 

0007  DO  100  NCYCLEs 1 , NCYC 

00 OH  MCYCLFf MCYCLtt 1 

C-- UPDATE  IF  NECESSARY  — 

0U09  1FIUFLAG)  CALL  UPDAT 

C SCAN  ALL  BLOCKS 

0010  UDM AX=0  • 0 

0011  DO  20  NB=l,NBLOKS 

0012  1B-1AINB) 

0013  CALL  MOTION! A( IB) ) 

0014  IF  INFLAG)  CALL  REBOA(NB) 

001b  20  CONTINUE 

C- EXIT  IF  NOTHING  MOVED 

001 b IFIUDMAX.EQ.0.0)  GOTO  110 

C- UPDATE  CONTACTS  ? 

0017  UMOST=UM0ST4UDMAX*TDEt 

00 1 H IFIUM06T.LT. 1 .0)  GOTO  30 

c yes  — 

001 9 UFL AG= . TRUE . 

C-  — - — SCAN  ALL  CONTACTS 

0020  30  DU  bO  NB= 1 , NBLUES 

0021  1BE=IA(NB) 

0022  JorMbfNB-l 

0023  40  losiAiJfc) 

0024  IF  C 1 6 . EO • 0 ) GOTO  bO 

002b  JBC= I A ( 1 &♦  3 ) 

0026  IHCsIA(JBC) 

0027  CALL  FOKD (A(I6),A(1 BC ) , A ( I BE ) ) 

0028  Jb=l6^4 

0029  v»UTU  40 

0030  bO  CONTINUE 

C 

c — END  CYCLE  LOOP 

C 

0031  100  CONTINUE 

c 

0032  110  CONTINUE 

C 

0033  KETUNN 
C 


0034 


END 


FORTRAN 

RBM.LST 


0001 


000  2 


0003 

0004 
000b 

0006 

0007 


0008 
000* 
0010 
001  1 
0012 

0013 

0014 
001b 

0016 

0017 

0018 
001* 
0020 
0021 
0022 

0023 

0024 


002b 

0026 

0027 

0028 
002* 

0030 
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C 

C 

C 


C 

c 

c 

c 


c 


c 


c 


c 


c 

c 


SUBROUTINE  MOT  ION ( B ) 

LA*  OF  MOTION  FUR  A SINGLE  BLOCK 

COMMON  /CBLOCK/  MED ( 20 ) , NBLOKM , NBOXES , M 1 , M2 , M3 , M4 , Mb , M6 , M7 , 

. NBLOKS,NCYC,MCYCLE,NEMPl#RFLAG,Ut LAG, Ft  LAG, 

. TFRAC,TDEL,  I BOXES,  J BOXES, HS1ZE,XS1ZE,  ISIZE, 

. DON  A X , UMOST  ,ST1FN,ST1FS, ERIC, ALPHA, BETA, BDI, 

. CONI ,CON2, NVARB,NFNAG,NBR,NPN, 

. GRAVX, GRAVY, LOC 1 , LOC2 , Nl'PDAT , LB LOCK 

LOGICAL  RFLAG, U F LAG, E FLAG 
DIMENSION  BC1) 

EQUIVALENCE  IF1X,JF1X) 

F1X=BC 1 ) 

— -- — .......... — is  THIS  BLOCK  FIXED  ? — 

IFl JFIX.NE.O)  RETURN 

no 

VELOCITIES  FROM  ACCELERATIONS  

B(6)»(B(6)*C0NW(B(  14)/BU2)-*GRAVX)*TDEL)*CUN'2 
UDMAX= AMAX 1 (UDMAX , ABSIB16) ) ) 

B(7)  = (B(7)*C0N1MB(  lb)/B(  12)4GRAVY)4TDEL)*CON2 
UDMAX=AMAX1 (UDMAX, ABS(B(7) ) ) 

B(8)s(B(b)»CONl*(Bl 16)/B(13) )4TDEL)*CUN2 
B( 14)=B( 17) 

Bllb)=B(18) 

B(16)*0.0 

... displacements  from  velocities  --- 

1BXSBC3) 

1BY<B14) 

B(9)=Bl6) *TDEL 
B(10)=Bl7)*TDEL 
B( 1 1 )=B18)*TDEL 
B(3)=Bl3)*B(*) 

B(4)=B(4)*B( 10) 

B(b)=Blb)*6(  1 1 ) 

— - — .....  — ... L)U  me  NEED  TO  RE  BOX  ? — 

IF(IBX.E0,1FIX(B(3)) . AND . I BY . EO . 1 FIX ( B ( 4 ) ) 

. . AND. ABS(B(b) ) .LT.0.01 ) GOTO  1U0 

YES 

RFLAG=.TKU£. 

B(b)sU.O 

UPDATE  COS  AND  SIN  t OR  THIS  BLOCK  

100  TEMPsbCl*) 

rt( l*)=Bl 1 * ) -B l 1 1 )*Bl 20) 

Bl 20 )=B l 20) tBll 1 ) 4 TEMP 


RETURN 


0031 


END 
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0001  SUBROUTINE  FORD(C,BC,B£) 

C 

C — FORCE  DISPLACEMENT  LAN  FOR  SINGLE  CONTACT 

C 

0002  COMMON  /C8L0CK/  HED t 20 ) , NBLOKM , NBOXES , M 1 , M 2 , M 3 , M 4 , Mb , MB , M 7 , 


nbloks,ncyc,hcycle,nempt,rflag,uflag, eflag, 

TFRAC,TDEL, I BOXES, J bOXES , bS I ZE , Xs I ZE , YSIZE, 
UDMAX,UMOST,STlFN,STlFS,FRlC,ALPHA,bETA,bDT, 
CONI ,CON2,NVARB,NFKAG,NBR,NPR, 

GR A VX, GRAVY, LOCI , L0C2 , NUPDAT , LBLOCK 


0003  LOGICAL  RFLAG.UFLAG, EFLAG 

0004  DIMENSION  C ( 1 ) , BC ( 1 ) , BE ( 1 ) 

C 

c INCREMENTAL  GLOBAL  DISPLACEMENTS  

000  b DUY  = HC(10)-BE(10)*BC(11)*IC(  123-BCt  3)  )-BEUl)*lCU2)-BEC3)) 

000b  DUX=BC ( 91-BEl  9 ) -BC l 1 1 ) » IC l 1 3 ) -bC ( 4 ) ) +BE ( 1 1 ) » 1C l 1 3 ) -bE l 4 ) ) 

C NORMAL  COORDINATES  

0007  0US=0UX»C(11 )+DUY*Cl 10) 

0008  DUN=DUY*Clll)-DUX*C(10) 

G NORMAL  FORCE  

0009  DFN=-DUN*STIFN 

0010  C(8)=C(8)«-DFN 

c TEST  FOR  TENSION 

0011  1FCCC8) .GE.0.0)  GOTO  20 

0012  C C 8 ) =0 . 0 

0013  C C 9 ) =0 , 0 

0014  DN=0 • 0 

001b  ds=o.o 

001b  GOTO  bO 

c SHEAR  FORCE  

0017  20  DFS=DUS*STIFS 

0018  C(9)=C(9)+DFS 

0019  FRICF=FR1C»C18) 

0020  IF1ABS1CC9) ) .LE.FR1CF)  GOTO  40 

0021  CC9J=SIGNCFRICF , C ( 9 ) ) 

0022  DS=0.0 

0023  GOTO  bO 

c — — — --  dashput  forces  — 

0024  40  DS=BDT»DFS 

002b  bO  DN=BDT»DFN 

C GLOBAL  CONTACT  FORCES  

0026  bO  FYC=(C(9)+DS)»C(10)-(CC8)«-DN)»C(11) 

0027  FXC=CC19)+DS)*C11 1 ) ♦ (C t 8 ) +DN ) »C ( 1 0 ) 

C ADD  CONTRIBUTION  TO  BLOCK  FORCES  

0028  BCC14)=BC(14)-FXC 

0029  BC( lb)=BC( lbl-F YC 

00  30  BCU6)=bCllb)-(FYC»(CU2)-BCI3))-FXC*lCll3)-BCt4) ) ) 

0031  BE114)=BE114)+FXC 

0032  BE(lS)=BE(lb)+FYC 

0033  bEC  16)=BE(16)  + (FYC»CCU2)-BE(3) ) -FXC*  CC(  1 3 ) -BE 1 4 ) ) ) 

C 

0034  RETURN 
L 

003b  END 


267 


FORTRAN  1 V -PLUS  V02-51  17:05:59  16-FEb-7b  PAGE  2U 

RBM.LST  /I4/TR:bL0CKS/WR 


0001 


0002 

0003 

0004 

0005 


000b 

0007 

0008 

0009 

0010 

0011 


0012 

0013 

0014 

0015 
001b 

0017 

0018 

0019 

0020 

0021 

0022 

0023 

0024 

0025 
002b 

0027 

0028 

0029 

0030 

0031 

0032 

0033 

0034 

0035 
003b 

0037 

0038 

0039 


SUBROUTINE  REBOX ( NB  ) 

C 

C ROUTINE  TO  REBOX  A SINGLE  BLOCK  

C 

COMMON  AC3000) 

DIMENSION  I A C 1 ) 

EQUIVALENCE  IA,1A) 

COMMON  /CBLOCK/  HEO ( 20 ) , NBLOKM , NBOXES , M 1 , M2 , M3 , M4 , M5 , Mb , M7 , 

. NBLOKS,NCYC,MCYCLE,NEMPT,KFLAG,UFLAG,EFLAG, 

. TFR AC , TDEL , 1 BOXES , J BOXES , BSI ZE , XSI ZE , YS1ZE, 

. UDMAX,UM0ST,ST1FN,STIFS,FR1C, ALP HA, BET A, BDT, 

. CONI ,CON2,NVARB,NFRAG,NBR,NPR, 

. GRAVX, GRAVY ,L0C1 , LOC2 , NUPDAT , LBLOCK 


LOGICAL  R F LAC, UFLAG,E FLAG 

C 

1B=IAINB) 

NC=IA( IB+1 ) 

C SCAN  EACH  CORNER  OF  THE  BLOCK 

IC=lB+20 
DO  100  NP= 1 , NC 

C ARE  WE  AT  EDGE  OF  DOMAIN  ? 

IF(GLX(A(IB) ,1C) .GT.O.U.AND.GLX(AIIB) ,1C) . LT . XSIZE. AND . 

. GLY (ACIB) ,IC) .GT.U.O. AND. GLY ( A C IB ) , IC) .LT. YSIZE)  GOTO  20 

C YES , SET  MASTER  FIX  FLAG 

IA11B)=2 


A(IB+5)=0.0 
A ( lB+b)=U.O 
A(lB+7)=0.0 
A ( IB+8 ) =0 . 0 
A ( 1B  + 9 1=0,0 
A11B+10)=0.0 
GOTO  900 


C NO,  WHICH  BOX  SHOULD  CORNER  BE  IN  ? 

20  NBUX=IFIXIGLX(A( IB) , IC ) /BSI ZE ) ♦ IFI X ( GLY ( A ( IB ) , IC ) /BSIZE ) » I BuXE; 

c SEARCH  THIS  BOX 

J4N=M3+NBOX“l 


30  I4N=IACJ4N) 

IFC14N.EQ.0)  GOTO  40 

IF(NB.EQ.IA(14N+1).AND.NP.E0.1AU4N))  GOTO  100 

J4N=14N+2 

GOTO  30 

C SEARCH  THE  SURROUNDING  BOXES  

40  NXL=MAXOIMUO(NBOX-1 , 1 BOXES) , 1 ) 
NXU=M1NOINXL+2,IHOXES) 

NY L=MAX0CN BOX/1 BOX ES,1) 

NYU=MIN01NYLK2,J BOXES) 

DO  80  JBOX=NYL, NYU 
MBOX=( JBOX-1 ) »IBOXESkNXL-1 
DO  70  I BOX  = N XL , N XU 
MBOX=MBOX+l 

IF(MBOX.EO.NBOX)  GOTO  70 
J4M=M3»MBOX-l 
50  I4M=IA(J4M) 

IFC14M.EO.O)  GOTO  70 

IF(Nb.EO.IACI4M+l).AND.NP.EO.IA(I4M))  GOTO  BD 
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J4M=I4M+2 
GOTO  50 

c SWAP  ENTRIES  FOR  THIS  CORNER 

60  IA(J4M)=IA(I4M+2) 

1A(J4N)=I4M 
IA(I4M+2)=0 
GOTO  100 

C END  OF  SURROUNDING  BOXES  SCAN 

70  CONTINUE 
80  CONTINUE 

HRI1E(6, 3000)  NR , NB 
EFLAG= • TRUE , 

CALL  FINISH 


C END  UF  CORNERS  SCAN 

100  IC=IC+3 
C 

c EXIT 


90U  KFLAG=. FALSE. 

RETURN 

C 

3000  FORMAT ( 24H  ERROR  IN  REBOX  : CORNER, 13, 

. 9H  OF  BLOCK, 14, 20H  NOT  IN  ADJACENT  BOX) 

C 

END 
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000  1 


0002 
OOO  1 
0004 
000b 


000b 

0007 

OOOH 


OOOR 

0010 

0011 

001 1 
00  1 J 
0014 
001b 
001b 

0017 

0018 
001* 
0010 
0021 
0 011 
001 J 
0074 
007b 
007b 

0077 

0078 
0070 
0010 
0011 

0017 

0011 

0014 

001b 

001b 

0017 
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SUBROUTING  UPUAT 
C 

C UFDATk  ALL  CONTACTS  

C 

COMMON  A l 10007 
DIMENSION  1A11) 

COU lVALfc-NCC  IA,1A) 

COMMON  /CBLOCK/  H£D(20) , NBLOKM , NBOXtS , M 1 ,M7 , Ml , M4 , Mb, Mb, M7 , 

. NBLOKS , NCVC . MCYCLt , NKMPT . KFLAG , UFLAG , thLAC, 

. TF  K AC,  TOLL,  IBOXtS  , JBOXFS  , BS  J ZF , XS1 Zt  , YSIZt, 

. UONAX,UMOST,ST1FN,ST1FS,FH1C, ALPHA, BET A, BDT, 

. CONI  ,C0N2,NVAHB,NFHAC,NBK,NPH, 

. gkavx,ghavy,luci,loc2,nupdat,lhlock 

LOGICAL  HFLAG, UFLAG, LFLAG 
C 

LOGICAL  FIRST 

OATA  TOL.TOLB  / I'O  ,-0.01/ 

C 

C SCAN  EACH  BLOCK 

DO  bOO  NB= 1 , NBLOKS 
1 7- 1 A 1 NB ) 

NC=lA(17»l ) 

C SCAN  EACH  EDGE  OK  BLOCK 

ltN01~l 1*10 

DO  400  NP= 1 , NC 

FIRSTS .TRUK. 

lk.NDlzlt.ND2 

lEND2=ltNDl+i 

lk INF. EU. NC)  ltND2=I2+20 

C DETERMINE  BOXFS  TO  HE  SEARCHED 

Xl-GLXI Ai 12 ) , IENU1 ) 

X2=GLXl A( 12) , IKN02) 

Yl=GLY(A(12),IEN01) 

Y2=GLY(A(12),ItND2) 

TEMP=AMAX1 1X1 ,X2) 

X1=AM1N11X1,X2) 

X2=TEMP 

TtMP=AMAXllYl,Y2) 

Y1  = AMINHY1  ,Y2) 

y 7=rtMp 

nxl=ifxxuxi-tol)/bsize)-u 

NXU=MINOl IFXX( (X24T0L)/BSlZt)4 1 , 1 BOXES) 

NYL=IFIX( l Yl-rOL)/BSI2t)+l 
NYU=MIN0(1F1XI( Y2+TOL ) /BS1ZE) ♦ 1 , JBUXES ) 

C SKARCH  KACM  CANDIDATE  BOX  

DO  IbO  JBOX=NYL, NYU 
NBOXil JBOX-1 )»1B0XKSKNXL-1 
DO  100  1B0X=NXL,NXU 
NBUXsNBOXF 1 
14=lAlMltNHOX-l ) 


C END  OF  BOX  LIST  ? 

210  CONTI NUk. 

IFU4.tU.Ul  GOTO  100 

C- .......... No(  is  THIS  BLOCK  NB  1 


Ik  ( IA(  I 4 1 1 > . NE . NB ) GOTO  220 


00  SO 


f 


270 


r 


; 
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NHM • LST  / 1 4/ TR ! h LOCKS/ wN 

C YES  --- 

C GET  NEXT  ENTRY  IN  THIS  EiOX 

0040  lib  I4MAU4»I) 

00  41  GOTU  210 

c first  time:  through  i — 

00 4 X JiO  IE( .NOT. FIRST)  GOTO  230 

C YES,  COMPOTE  COS  AND  SIN  FUN  THIS  EDGE 

0043  FIRST-. EALSE. 

00  4 4 COSA  = l GLX l A l 1 2 ) , 1 E NO  2 ) -GLX  l A 1 12  ) , 1 EMM  ) ) / A l 1 EM'  1 ♦ 2 > 

004  b S1NA=IGLYIA(12)  , IEND2)-GLY  l A l U)  ,1END1  ) )/Al  1END1+2) 

C COMPUTE  COEiNEK  COORDINATES  NEGATIVE  TO  EDGE 

004s  230  12C=IA(14*1) 

0047  UC  = 1AIWC) 

00  4 m IC*  12Ce1A  l 1 4 ) * 3«  1 7 

00  4N  YT=lGLY  l A l UC)  , 1C)-GLY  1A1  IX)  , 1ENU1  ) )*COSA 

. -I GLX l All  20 , 1C) -GLX l A( IX) , IENU1 ) )*S1NA 
OObO  1EI YT.GT . 1 . 0 ) GOTO  lib 

OObl  1F( YT.LE.-3.0)  GOTO  21b 

00S2  XT*(GLXIAI 120 , ICJ-GGXlAt 12) , 1ENDI ) ) »COSA 

. ♦ 1 GLY  l A l 1 2C)  , lO-GGY  l At  1 2)  , 1EN01  ) ) 4S1NA 

00b J 1EHXT.GT.AI  1END1+2)  ) GOTO  2lb 

00S4  IEUXT.LT. 0.0)  GOTO  21b 

C CONTACT  LIST  EON  BLOCK  NO 

OObb  Js=MSeNB- 1 

OObS  lb=IAlJ6) 

C ENO  OF  LIST  1 

00b 7 23b  CONTINUE 

OOSH  lEUlb.EG.O)  GOTO  2b0 

C NO.  SAME  CONNEN  ANO  EDGE  l 

00 SN  1EU  1 A( 1 4 ) .EG. IAllb  + 2).AND.IA(14El).E0.1AUb4l) 

. .AND.NP.EO.lAl lb+1))  GOTO  240 

C NO.  GET  NEXT  ENTRY  IN  CONTACT  LIST 

OObO  J S s I S ♦ 4 

0051  lb-lAlJb) 

005 2 GOTO  2 3b 

C CONTACT  ALREADY  STONED 

00b J 240  1EUYT.GT.-2.0)  GOTO  24b 

C APPLY  DRIFT  CONNECTION 

00b 4 aNITElb, 3000) 

C UPDATE  CONTACT  DATA  

OObb  24b  Al Ih+9)=S1NA 

OObb  AUb*10)*CnSA 

00b 7 Al Ib+1 1 )*GLX(A( 120 , IC) 

OObN  Allb+12)=GLYIAII2C). IC) 

OObl  l A 1 lb ) = 1 

0070  GOTO  21b 

C Nt«f  CONTACT  { 

0071  2bO  CONTINUE 

0072  l FI YT.GT. 0.0)  GOTO  21b 

C YES 

0073  16=NEMPT 

0074  lCK=lC-3 

00  7b  IF( 1A( 14) .EO. 1 ) ICNa IC* J *( 1 A ( I 2Ct 1 ) -l ) 

007b  YTNslGLYl A( 120 , 1CR)-GLY IAI 12) , 1END1 ) )*COSA 

. -IG1.XIAI  120 , 1CN)-GI.X(  A(  12)  , IENI'1  ) )*S1NA 
0077  IE IYTN.LE.-2.0)  GOTO  21b 
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007b  lCL=lC+3 

0079  1FI 1 A ( 14)  .KO.  1A(  12C  + 1 ) ) ICL=12C+20 

0080  Y l'L  = CGLYl  A(  120 , 1CL  ) -GLY  ( Al  12  ) , 1ENU1 ) )4CUSA 
. -<GLX(  A l 1 20 , 1CL)  -GLX  (A(12),1END1))4S1NA 

008  1 1FCYTL.LE.-2.0)  GUTU  21b 

C ANY  SPACE  AVAlLAdLt  IN  kMPTl  LIST  ! 

00  8 2 1F( 1AINEMPT44) .NE.O)  GUTU  2bO 

0083  «HITt(b, 3001  ) 

0 0 b 4 CALL  FINISH 

C NEW  CUNY  ACT 

Oubb  2bO  Allb+S)=0.0 

008b  AUb  + b)=O.U 

008  1 AC lb+7)=0.0 

0088  A(lb-kb)=0.0 

0089  1 A C 1 b + 1 ) = NP 

0090  1AC  lb-f2)  = lA(  14) 

0091  IAI Ib  + 3)  = 1A( 14*1  ) 

0092  NEMPr=lAUb*4) 

0093  1 A ( Jb ) = 1 b 

0094  lAllht4)=U 

009b  GOTO  24b 

C END  Uk  HUX  SCAN 

009b  300  CONTINUE 

0097  3bO  CONTINUE 

C tND  UK  EDGE  SCAN 

0098  400  CUNT IMUK 

C SCAN  CONTACT  LIST  FUR  PRESERVE  KLAoS  

0099  Jb=Mb+Nrt-l 

0100  lb=lACJb) 

C END  op  LIST  > 

0101  410  lkdb.EO.O)  GOTO  490 

C Nil 

C IS  THE  PHESk.KVE  k LAG  SkT  t 

0102  1FUAC  16)  .EU.O)  GUTU  420 

C YtS 

0103  IAllb)=0 

0104  Jb= 1 b+4 

0105  GUTU  430 

C Nl) 

0106  420  1ACJ6)=1AI I6t4) 

0107  1A(16+4)=NEMPT 

0108  NEMPT=l6 

C GET  NEXT  CONTACT 

0109  430  I6=IA(J6) 

0110  GUTU  410 

C t'Nl)  UK  HLOCR  SCAN 

01  1 1 490  CUN  1 1 NUE 

0112  bOO  CUNT  1 NUE 

C 

0113  NUP1>AT  = NUPDAT+ 1 

0114  UKLAG=. FALSE. 

0115  UMUST=0.0 

011b  RETURN 

C 

01  1 7 3000  FORMAT  ( 30X  , 2bH  l)HI  FI  CUNHECT1UN  KEUlllKkl) 

01  1 8 3001  F0KMATC30X,  J2H  NU  MURE  MEMORY  FUR  CONTACT  I.1ST) 
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0001  KuNCTIUN  (jLX(B,  1C) 

C 

C * LOCAL -GLOBAL  X -CUUKPl N Alt 

C 


oo  02 

CUMMON  AIJOOO) 

000  i 

OlMtNblUN  IACl) 

0004 

fc-00  1 V ALKNCfc:  l A , 1 A ) 

000b 

c 

c 

c 

OlMtNSIUN  Hll) 

000b 

0LX  = bl3)«AClC)»BU0)-AUC+D*H(20) 

0007 

HfcTUKN 

000H 

tND 

fHANSH»KMA  1 1UN 


w 
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RBM.LST  / 14/ TR :HLOCKS/»K 

0001  FUNCTION  GLY  L B , IC ) 

C 

C LOCAL-GLUbAL  Y-COORPINAIE  TRANS! ORHAT1UN  

C 

0002  COMMON  A ( 3000 ) 

0003  U1MENSION  IAU1 

0004  EOUIVALENCE  (A,1A) 

000b  01MENSION  B ( 1 ) 

C 

000b  GLY=Hl4)+A(IC)*B(20)+A(lC4l )*B(19) 

C 

0007  RETURN 
C 

0008  ERL) 
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0001 

c 

SUbHOU TINt  OUMF 

c 

0002 

COMMON  AC300U) 

0003 

DIMENSION  1 A ( 1 ) 

0004 

EuUXVALENCE  C A , 1 A ) 

0005 

CUMMUN  /CBLOCK/  HKL)  C 20  ) , NbLOKM  , NbOXfc.5 , M 1 , M2  , Mi  , M4  , 

, Mb , 

Mb , M7  , 

. N BLOKS,  NCYC,MCYCLE,NEMPT,RFL  AG,  UKLAG.tKL.AG, 

. TFRAC.TDEL, X BOXES , JHUXt  .6 , HS I ZE , XS1 ZC , YSIZE, 

. UDMAX,UMOST,STIFN,STIFS,FRIC,ALPHA,BtTA,BDT, 

. CONI ,CON2,NVARB,NFRAG,NBR,NPK, 

. GRAVX,GRAVY,LUC1  ,LOC2  , NOPDAT,  lblcjck 


0006  LOGICAL  RFLAG,UFLAG,EFLAG 
C 

0007  XFCL0C2. to. 0)  KtTURN 

0006  RRITECb, 2000) 

0000  WRlTECb,200b)  Ml,M2,M3,M4,Mb,Mb,M7,NBLOKS,NCYC,NEMPT,MCYCLE 

0010  XFCLOC2.LT. 0)  GOTO  100 

C DUMP  CUNStCUTIVt  MEMORY  LOCATIONS  

0011  *KllECb,2U09) 

0012  12=1 (LUC1-1 )/10)*10 

0013  10  11=12+1 

0014  12=11+9 

0016  «R1TEC  6 , 200 1 ) ( 1 A ( I ) , 1 = 1 1 , 12 3 , 12 

001b  1FCI2.LT.LOC2)  GOTO  10 

0017  GOTU  500 
C 

c DUMP  BY  BOX 

0016  100  wRITECb,2002) 

0019  DO  120  NBOX=l , NBOXtS 

0020  X3=1ACM3+NB0X-1) 

c ANy  MORt  ENTRIES  ? 

0021  110  1FCI3.EQ.0)  GOTO  120 

C MO,  PRINT  BLOCK, CORNER  

0022  WKITECb,2008)  NBOX , I A C 1 3 + 1 ) , I A C 1 3 ) 

0023  13  = 1 AC  13  + 2) 

0024  GOTO  110 

0025  120  CONTINUE 

C CONTENTS  OF  EACH  BLOCK 

0026  WRITEC6,2006) 

0027  DU  130  NB  = 1 , NBLOKS 

0026  1F=IACNB) 

0029  1L=IF+19+3»1AC1F+1) 

0030  WK1TEC6,2003)  NB , I A C IF ) , I A C XF+ 1 ) , C A C X ) , 1=1 F+ 2 , I L ) 

0031  130  CONTINUE 

c DUMP  CONTACT  DATA 

0032  IFCMS.EO.O)  GOTO  500 

0033  WRI TE  C 6 , 2007 ) 

0034  DO  150  NB=1, NBLOKS 

0035  J6=M5+NB-1 

0036  140  Ib=IACJ6) 

0037  IFCIb.EQ.O)  GOTO  150 

0036  WR ITE  C 6 , 2004 ) NB , C 1 A C I ) , 1 = 16 , 1 b + 4 ) , 

CAC I ) , 1=16+5,16+12) 
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0039  Jb  = 1 b + 4 

0040  OOTO  140 

0041  ISO  CONi'lNUt 

C 

0043  bOO  xKITtCb, 3000) 

C 

0043  RFTUHN 
C 

0044  3000  FORMAT! IX. 130C1H-) ) 

004b  3001  FORMAT! IX, 10013, lb) 

004b  3003  FORMAT!  10X  , 3HB0X  , 7X  , bHHLOCb  , bX  .bMCOKNFK  ) 

0047  3003  FORMATI/1X, 313, 1 PI  1 E 1 0. 2/ 1 1 OX  , 1 PI  1 1 1 0. 3)) 

004b  3004  FORMAT!/lX,bI10/lX, 1PBE10.2) 

0049  300b  luRMAri9X,2HMl,bX,2HM2,bX,3HM3,8X,2HM4,bX,2HMb,bX,2HMb, 

. bX  , 3HM7 , 4X , bHNBLOKS, bX  , 4 H N C Y C # bX  , bHNLMF’l' , 4X  , bHMCYCLE/ 

. IX, 1 1110) 

OObO  300b  FORMAT ! 1 1 H MLOCb  DATA , 1 0 ( 1 M-) / 1 X , 9H  NB  IF  NC , BX , 2HXC , bX , 2HYC , 

. bX,bHTHfcTA,6X,4HXD0T,bX,4HYU0T,6X,4HTD0T, 

. bX,2Hl)X,8X,2HDV,4X,bHDTHtTA,bX,4HARtA,3X,7HlNtHTlA2 

. 1 bX , bHXF  SUM , bX , bHYFSUM ,bX,4HMSUM , bX , bHXLOAU , bX , bHV  LOAD , 

. 7X,  3HC11S,  7X,  3HS1N) 

OObl  3007  FORMAT!  1 3H  CONTACT  DATA  , 1 0 ! 1 H- ) / «A  , 3HNBt , 7 X , 3HPRE  , 7X  , 3HNRF  , 7 X , 

. 3HNPC,7X,3HNBC.bX,4HLINK/10X,lRS,9X,lHN,HX,3rtFN,bX,3HFS, 

. 7X, 3HS1N , 7X , 3 NCOS, 7x, 3HXCP.7X, 3HYCP) 

00b3  300b  FORMAT! IX, 3113) 

00b3  3009  FORMAT! IX, 30! 1H») , 19HVALUES  ARt  IN  OCTAL , 30 l 1 H* ) ) 

C 

OOS4  END 
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0001  SUbNOUTlNE  HPLUT 

C 

C PLu  1'  A SNAPSHOT  OP  lnE  GEUMPTKY 

C 


OOOi 

OJMMUN  A i 3000) 

0003 

UIWKNMOM  1AU) 

0004 

tQUIVALtNCK  (A, 

1A) 

000b 

CUMMON  /CbLUCK/ 

HE0l20),NbLUKM,NdUXES,Ml,M2,M3,N4,Mb,M6,H7 

N0LUKS,NCYC,HCYCLE,Nt.MPT,KPLAi..  ,UPLAG,tPLAG, 
TPHAC,Tl>EL,  1 BOXES,  JBUXPS,  0S1LE,  XS12E,  YSIZt, 
UOMAX , UMOSl ,S1 IKn , S1 1 PS , PH IC , ALPH A , BET A , 00 T , 
CON  1 .COM2  , N V AN0  , nPKAG  , NHK  , NP’K  , 
uKAVX,GKAV  Y , 1,00  , L0C2  , NuPl'AT  , LBLUCK 


0006  LOGICAL,  KP LAG , UP  LAG , PFLAG 
C 

0007  SCKEtN= 10.0 

000 W PACT=SCKEEN/ AMAX1  ( XS17.E,  YS12E) 

C PLOT  EACH  BLOCK  --- 

OOOH  00  100  NB=1,NBLUKS 

0010  12=1ALNP) 

0011  NC=1A(12+1) 

0012  XC=PACr*Ail2+2) 

0013  YC=PACT*AU2  + 3) 

C P1XP0  ? 

0014  1PL1A(12).EO.O)  GOTO  20 

c its,  ai.kp.aoy  plotted  r — 

001b  1PI 1A( 12) .GI.2)  GOTO  100 

C NO 

0016  lAU2)  = IAU2)  + 2 

0017  CALL  SYMBOLL XC, YC,0. 2 , 1HP,0.0, 1) 

0010  20  lC=12+20 

001V  X=PACl*GLX(All2) , IC) 

00  2 0 Y = P A C T • G L Y L A L 12) , 1C) 

0021  CALL  PLOT  l X , Y , 3 ) 

0022  011  bO  NP=2,N C 

0023  IC- IC+3 

0024  X=PACT*GLXLAL 12) , IC) 

002b  Y=FACT»GLY(A112),1C) 

002b  CALL  PLOT ( X , Y , 2 ) 

0027  bO  CONTINUE 

0025  X=PACT»GLXIAL12), 12+20) 

002S  Y = PACT*GLY LAI  12) , 12  + 20) 

0030  CALL  PLOT ( X , Y , 2 ) 

C ENl>  BLOCK  LOUP 

0031  too  cuMInop; 

c 

0032  CALL  PLUTLX,Y,3) 

0033  CALL  PLOl'iO. 0,0.0, 3) 

C 

0034  KeTUHN 
C 

003b  END 
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0001 


SUBROUTINE  E1N1SH 


TIDY  UP  AND  STOP  


0002 

0003 

0004 
000b 


000b 


COMMON  AC  3000) 

DIMENSION  I A t 1 ) 

EQUIVALENCE  (A,IA) 

COMMON  /CBLOCK/  HED ( 20 ) , NHLOKM , NBOX ES , M 1 , M 2 , M 3 , M 4 , Mb , Mb , M7 , 
NhLUKS, NCYC, MCYCLE , NEMP1 , KELAg , U1  LAG, EELAG, 
T1  R AC  , TOLL  , lbOXES, JbOXES,BSlLE,XS12E,  YS12E, 
UDM AX, UMOST, ST UN.STIFS, ERIC, ALPHA, btlA, BD1 
CONI ,CUN2,NVARb,NERAG,NbH,NPR, 

GRAVx, GRAVY , LuC 1 , LOC2 , N0PDAT , LbLOCK 
LOGICAL  KELAG, UELAG, EE  LAG 


000  1 
ODOR 


CALL  PLOTND 

«Rll'ECb,  2000)  MCYCLE ,NUPD AT 


0004 

0010 

0011 

0012 

0013 

0014 


100 


WRITE  KESTAHJ  EILt  11  NO  ERRORS 

1ECEELAG)  GOTO  100 
REWIND  1 

WKITEC1)  CHEUC1 ), 1=1 , LbLOCK) 

WR1TEC1)  CAC I ) , 1=1 ,M7) 
wRITE(b,2001 ) 

S1UP 


001b 

001b 

0017 


2000 
2 Ou  1 


EUHMAl(30X,13H  TOTAL  CYCLES, 110/ 

30X.13H  NO.  UPDATES  ,110) 

FORMAT ( 30X , 32H  A RESTART  PILE  HAS  BREN  WRITTEN) 


END 


T* 
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0001  SUBRUUTINt  CHLCK 

c 

C M 0 M t N T U M AND  LNtRGY  CHLCK 

C 

0002  CUMMJN  A13000) 

0003  UIMKNSIUN  1 A C 1 ) 

0004  tUUlVALLNCL  t A , 1 A 3 

000b  COMMON  /CBLUCK/  H LO C 20  ) , NBLUKM  , NBOX bS  , M 1 , M2  , M 3 , M4  , M b , Mb  , M 7 , 


. NBLOKS,NCYC,MCYCLb,NtMPT,KLLAG,Ul'LAG,teLAG, 

. TKRAC,TDbL,  IBOXbS,  JBUXtS,  bSIZt , XSIZb,  YSIZb , 

. UUMAX,UMUST,S1 11 N , SllKS.KKIC , ALPHA , BLTA, BDT, 

. CONI  ,CUN2,NVAKB,MHAG,NBh,NPK, 

. GHAVX,GKAVY,L0C1  , LUC2,NIiPDAT,LBLUCK 


000b 

LOGICAL  KFLAG,Ut-  LAG,  FFLAG 

0007 

C 

X MUM  = 0 . 0 

0008 

YMUM=0. 0 

0009 

TMUM=0. 0 

0010 

T A K M = 0 . 0 

0011 

XKL=0 . 0 

0012 

YKt=o.O 

0013 

TKb=0 . 0 

0014 

00  100  Nb=  1 , NhLUKS 

001b 

12=  1 A CNB ) 

001b 

XMUM=XMOM+A(  12+1  1 )*A(l/+b) 

0017 

YM0M=1MUM+A(  12*1  1 ) * A l 12  + 6) 

0018 

TrtUM  = IMOM«-A( 12+12 )*Al 12  + 7) 

0019 

IAKM=TARM+A(r2+ll)*(All2+2)*A(r2+b)-A(I2+3)*All2+b)) 

0020 

XNt=XKL+0.b*AC12+l 1 ) ♦At  I2  + b)**'2 

0021 

YKci=YKt>0  . b*A  ( I 2+1  1 ) »A  1 12  + b)  **2 

0022 

TKt=IML+0.b*A(I2+12)  »AC  12  + 7 ) **2 

0023 

*RlTfc(6,200l)  XMUM  , 1 MOM  , I MOM  , TAKM  , XKr. , 1 KL  , lKc. 

0024 

100 

C 

CUN  1 INUt 

00  2 b 

fcSOM  = XFfc>YrvE  + TKt; 

002b 

C 

C 

C 

2000 

T£>UM  = TMOM+  TAKM 

0027 

*Nllt(o,  2000)  XMOM , YMOM,! MOM , TAKM , TSUM , XKfc. , YNh , TFF  , fcbUM 

0028 

KtlUKN 

0029 

FORMA  i'  ( 9H  MOMENTUM,  1 IX,  1HX,  11X,  1HY  ,2X,  1 OHKU  T AT  1 ON  AL/ 

. 9 X , lPbbl2.4// 

. 9H  bNbKuY  , 11  X , 1 NX  , 1 1 X , 1 HY  , 2x  , 10HKUTA1 1UNAI , 7X  , bhlOl’AL/ 

. 9X, 1P4L12.4) 

0030  2001  r'OKMATl  IX,  1 P7L12.4  1 
C 

0031  LND 


PROGRAM  SbCTlONS 

NAMfc.  Mit  AllHIBlrfbS 


SCUUbl  000712 


229 


H»  , I , CON,  LC1, 
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RBM.FTn  / I 4/ TR : BLOCKS  / MR 

0001  PROGRAM  SDEM 

c 

C- - 

C RIGID  BLOCK  MuDEL  • 

c FREELY  TRANSLATED  INTO  EURTRAN  BY 

c p.j.bekeseuro,  from  an  original  pkugram  - 

C B Y p.a.cundall.  

C OAMES  AND  MOORE,  LONDON.  

C VERSION  2.0,  NOVEMbER  1977  . 

C- MODIFIED  BY  P • A • CUNDALL  To 

C INCLUDE  LIMITED  DEE URMAB1LITY  

C 

C 

0002  INCLUDE  ' CUMMON.FTN ' 

0003  * COMMON  A 1 5000 ) 

0004  * DIMENSION  IAll) 

0005  » EOUIVALENCE  IA,1A) 

0006  INCLUDE  ' CBLOCK . FTN ' 

0007  * LOGICAL  LUCK 

0008  * LOGICAL  rflag,uelag,eflag 

0009  » REAL  LAME1 , LAME 2 

0010  * COMMUN  /CBLOCK/  HED l 20 ) , NBLOKM , NBUX ES , M 1 . M2 , M3 , M4 , M5 , Mb , M7 , 

* . NBLUKS,NCYC,MCYCLE,NEMPT, RELAG, UFLAG.EELAG.TFRAC, 

» . TDEL,IBUXES,JBUXES,XL,XU,YL,YU,BS1ZE,SFACT,XS1ZE, 

* . YSIZE,UDMAX,UM0ST,ST1FN, STIES, FH1C, BETA, BDT.ALPHB, 

* . CONI  , COM2 , ALPHA , NVARB, NBR, 1BK, NPR , LAME1 , LAME2 , 

* , G,CUN1B,C0N2B,GRAVX, GRAVY, LOCI, LOC2,NUPDAT, FIELD, 

* . LOCK , LBLOCK 

C 

0011  DATA  Sl'lFN,  STIES,  ERIC,  BETA/ 2» 1 . 0E8 , 0.0, 0.0/ 

0012  DATA  YIELD  /1.0E10/ 

0013  DATA  GRAVY, GKAVX/-9. 81 ,0.0/ 

0014  DATA  M 7 ,MCYCLE,NUPDAT , LBLOCK/ 3000 , 0 , 0 , 7 5/ 

0015  DATA  RFLAG, UFLAG.EFLAU/. FALSE. , .TRUE. , .FALSE. / 

0016  DATA  LOCK  /.FALSE./ 

0017  DATA  NVARB  /24/ 

C 

0018  CALL  PLOTSTl .025, 'CM' ) 

0019  CALL  SETUP 

0020  10  CALL  NEXT 

0021  CALL  CYCLE 

0022  GOTO  10 

C 

0023  END 


HJKTKAN  IV-PLUS  V02-04G  17:3 5:38  22-MAR-78  PAGE  1 

SETUP. ETN  / 14/TR:bL0CKS/*R 


U001 

0002 

0003  * 

0004  * 

0005  * 

000b 

0007  » 
000  8 * 
000*  ♦ 
0010  * 

• 

* 


oul  1 
0012 

0013 


0014 

001b 

OOlo 

0017 

0018 
001* 
0020 

0021 

0022 

0023 

00  21 
0025 

00  2 b 
0027 


0028 

002* 

0030 

0031 

0032 

0033 

0034 

0035 


C 


C 


C 


C 


c 


c 


c 


c 


c 


c 


c 


SUBROUTINE  SETUP 

INCLUDE  'COMMON. ETN ' 

COMMON  A l 5000 ) 

DIMENSION  1AU) 

EOU1VALENCE  (A,1A) 

INCLUDE  1 C BLOCK . FTN ' 

LOGICAL  LUCK 

LOGICAL  RELAG, Ut LAG, EELAG 
Kt-AL  LAME  1 , L AME2 

COMMON  /CbLOCK/  HEDC20) , NBLOKM , NbUXES , M 1 , M2 , M3 , M4 , Mb , Mb , M7 , 

. N BLOKS, NCYC,MCYCLE,NtMPT,KFLAG,UELAG. EEL AG, TER AC, 

. TDEL ,1BUXES, JbUXES , XL , XU , Y L , Y U , BS1 Zt , SE ACT , XSI 2E , 

. YS 1ZE,UDM AX, UM0ST,ST1EN, STIES, ERIC, BETA, BDT, ALPMB 

. COM , C0N2, ALPHA, NVARb,NbR,lbR,NPR,LAMEl,LAME2, 

. G, CUN  1 b, CUN  2 b, GR A VX, GRAVY , LOCI , L0C2 , NUPDAT , YIELD, 

. LOCK , LbLUCK 

DIMENSION  CARD120) , WORD! 10} 

BYTE  DAY  (10) ,T1M( 10) 

DATA  WURD  / 4HS1AR , 4hKEST , 4 Hb LUC, 4HbOXE, 4HAL1M, 

. 4HYLIM , 4H**** ,4 HER AC, 4HZZZZ, 4HZZZZ/ 


JUB  = 0 

CALL  DATt ( DAY) 

CALL  TIME(TIM) 

«RlTt(b,2000)  DA  t , 1 1 M 

k t AD  NEXT  CARD 

10  KEADC5, 1 000 ) CAKO 
CALL  TIME(TIM) 

*RIT£(b , 2001  ) CARD, TIM 

DU  20  1=1,10 

IECCARDC1) . EG.WURD(I)  ) GOTO  30 
20  CONTINUE 

WRITE  C b , 3000) 

GOTO  10 

30  IFCI.GT.2. AND. JOB. EG. 0)  GOTO  bO 
GOTO  (110,120,130,140,150, 

. Ib0,*00,170,  10,  10),  1 

50  WRiTElb,  3001  ) 

GOTO  10 

bO  WKlTE(b, 3002) 

GOTO  10 

- START  OE  NEW  RUN 

1 1 0 Jub  = 1 

DU  111  1=1,20 

111  HEDl 1 )=CARD( I ) 

GOTO  10 


003b 


120  JUb=2 


RESTART  RUN 
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10NTHAN  lV-HLUS  V02-04O  17USUB  22-MAK-7H 

strut. itn  /ia/tniblochs/nk 


HtAOll)  lHKDlI),l*l,LBLUCt) 

HtAOll)  (All), 1=1, M7) 

AH  1 It ( 6 , 2 00 1 ) HC  * CLE 
■HITtl6,2004)  HtO 
KtTUHN 

MAXIMUM  NUMbtK  01  BLOCKS 

OtCU0tl20,  1001  ,CAH0)  NHLOKM 
OOTO  10 

...... NUMbtK  OK  bUXtS  — - 

UtCOUtlAO,  1001 ,1' AMD)  1 BOXES,  JHUXtS,  lBSIZt 
bSlZE=KLOATl lBSIZt) 

NBOXtS=l MUX tS*J BOXES 
0010  10 

HHOBLtM  X-L1MITS 

OtCOOtl 30, 1 0 02 , C AKO ) XL, XU 

IK l XL. LT. XU)  OOIO  10 

TKNH=XL 

XL  = XU 

XU=TtMH 

OOTO  10 

— HHUBLEM  V-L1M1TS  

DtCODKUO,  1002, CAKU)  Yl.,YU 

11  l YL  • LT  .Ilf)  OOtO  10 

TtHKaYL 

YL=  YU 

YU=TtMH 

OOTO  10 


— INACTION  01  CRITICAL  TlMtSTtK  — 

OtCOOtl 20, 1002, CANO)  TIN AC 
OOTO  10 

StTUH  FINISHED  

CONTINOh 

INI riALlSt  SOMt  VAK1ABL1S  

UMOST*0.0 

NbLOXS=0 

Xbl  Zl.al'LOAT  ( lBOXtS)  » MS  l it 
YS12t=l LUAT( JHOXtS)*BSlZt 
XK*XS1ZE/IXII-XL) 

YK=YSlZt/lYU-YL) 

SKACT=AM1N1 1X1 , YK) 

Ml  = 1 

M2=M 1 +NBLOKM 
M .1  = M 2 

«iN  1 I'M  b , 2 00  2 ) NHLOKM  , NBUXtS, XL , XU , YL , YU , BSIZt ,S! ACT 
KtTUHN 


KORMATl 20A4) 

KOKH AT l 10X.il 10) 

KOHMAT 1 1 OX , BK 1 0 • 0 ) 

KOKMAT(iOX2»HSDtM  - S I MKL Y -DEI OKMAHLt  DEM , B JX , 10A1 , IX, 10A1/ 

. J0X2MH ......./) 

1 UKMATllX , 4H  + M .20A4.4H  ♦ ♦ ♦ , i 2X , 1 OA 1 ) 

KONMATl / 10X , 2SH  MAXIMUM  NUMbtK  OK  BLOCKS, lb/ 

. JOX , 2BH  NUMBtH  UK  BOXES  , IS/ 

. J0X.10H  X-LIM1TS  ,2110.2/ 

. J0X.10H  Y-LIM1TS  ,2110.2/ 


28  J 


►'ON  THAN  1V-ULU6  V02-04U  l7lJ6iJH  22-NAH-7X  HALt  J 

htrUf.fcl'N  / 1 4 / TH  I BLOCKS/  n H 

. JOX,  10H  BSUH  ,fc 10. 2/ 

. JOX  , 1 OH  Sfc'ACT  ,710.2) 

OON1  2 00  J fcONMATl JOX , J1H  HLSTANT  HUN.  CUHHtNT  CKl.fcS  ..,110) 

00X2  2004  ► UHMATl JOX , IMHtADINoi  ,20A4) 

OOXJ  JOOO  f’UHMAT  X 2XH  !J!  t HHOH  ! lLl.fc.oAL  COMMAND) 

00X4  J001  ► OHM  AT  1 J4H  ill  fc  HHOH  1 COMMAND  NOT  AVAILABLE ) 

00X6  J002  ► OHMAT 1 4XH  111  fc-HHOH  : 'STAN1'  OH  * Hfc  STAHT 1 CAHD  NOT  fcOUNU) 

C 

00X6  LND 


t’HOUH  AN  SECTIONS 


NAMt 

SIZfc 

A TTH  1 BIlTES 

ICODtii 

002220 

6X4 

HN.l.CUN.LCL 

SPPATA 

0000 26 

1 1 

HN ,0,C«N,LCL 

$ 1DAYA 

000140 

240 

Hx,D,CUN,LCL 

$ V AN.S 

000244 

X 2 

HN  ,D,CON,LCL 

ITtMP& 

000004 

2 

HN  .I'.CUN.LCL 

.$$$$. 

041040 

10000 

HN ,D,OVN,UBL 

C BLOCK 

000460 

162 

HN ,D,OVH,lRL 

TOTAL  SHACfc.  ALLOCATtD  * 06J176  110H 


hkT0fc',0*htrUD 
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Nbxr.tTN  / 1 4 / TH  : BLOC  Kb/  MR 


PAGE  1 


0001 


SUBH0UT1NE  NEXT 


000 2 
000  J 

0004 

0005 

0006 
000  1 
oooo 
0000 
ooio 


001b 


INCLUDE  * COMMON . I TN  ' 

CUHNON  A ( 5000 ) 

OIHENSION  1 A 1 1 ) 
tOUlVAl.ENCE  l A , 1 A ) 

1 NCLUOE  'CHLUCK.KTN ' 

LOGICAL  LUCK 

LOGICAL  HELAG.UFLAG.El LAG 

heal  u»u  ,im; 

CUNMUN  /CbLOCK/  HEOL  20) , NhLUKN , NbUXEh , M 1 , M2 , H J , M4 , Nb , Mb , H7 , 

NBL0KS,NCYC,MCYCLE,NEHP1 , HFLAG , 01  LAG . EEL  AG , IFR AC , 
TDEL.IBUXES, JBOXES.XL.XU, YL. YU.BSIZE.bEACl.XSIZE, 
YSlZE,UUMAX,l)HUST,STnN,STlKi>,lHlC,BETA,BDT,  ALPHB, 
CONI  ,CUN2,ALPHA,NVAHB,NBH,  1 BK , NPK , LANE  1 , LANE 2, 
G,CUN1B,C0N2B,CHAVX,GKAVY,LUC1 , LUC 2 , NOPOAT , Y 1 ELD , 
LOCK  , LBLUCK 


0011 

c 

COMMON  /P 

0012 

DIMENSION 

001  J 

BYTE  TIN! 

0014 

c 

DATA  BUHL) 

. 4HPLOT, 4M****,4HH6ET,4H1SE1 .4HCHEC, 

. 4HGBAV , 4HST 1 K , 4MOAHP , 4BFH 1C , 4HZEKO . 

. 4 M LOAD  , 4 H hO  AM  , 4 HE  L Ab , 4HLUCK  , 4 HP  L Ab / 

DATA  ICOOE  / 

. 0000000121, 0000000000, 000000001 1,000000000 1,0000000000, 

. 0000000000, 0000000000, 0000000021,  OOOOOOOO  11,0000000000, 

, OOOOOOOO  2 2, 0000  0000  2 2,00  00001 1 22,000000000  2,0000000000, 

. OOOoOOOl  22,0000000022, 000000002  2, 000000000  3,0000000022/ 


c- 

0016 

10 

HEAL)  l b , 1000)  CAHO 

001  1 

CALL  T1MELTIM) 

0018 

BHITEL6,2000)  CAHO , T 1 H 

0018 

00  20  1=1,20 

00  iO 

IFLCAHDl  1 ) .Ell.  BOHOL  1 ) ) GUtU  JO 

0021 

20 

CONTINUE 

0022 

HHlTtlb, JOOO) 

002  J 

GOTO  10 

00i4 

JO 

DECUUELBO, 1007, CAHO)  LINE 

002b 

CALL  PAHSEl ICO0EL 1 ) , 1EHH) 

0026 

1FL lEKH.EU.O)  GOTO  Jb 

00  2 7 

CALL  FINISH 

c- 

.... 

0028 

Jb 

GOTO  ( 100, lbO, 200, 250, JOO, 

JbO,4UO,4bO,bOO,bbO, 
600 , bbO , 700 , 7bO , BOO , 

8 bo, 000, 950, 97  0, V80) , 


00  20 
00  JO 


00J1 
00  J2 


40  BH1TEL6, J001 ) 
GOTO  10 

100  NbLUKS=NBLOKS+l 
NC  = I VAH ( 1 ) 


CHEATE  A NtB  BLOCK  


28  r> 


t OH  TH  AN 
NtXT.f  TN 

OOiJ 
0014 
ooi6 
00  16 
00  J I 
0 J16 
00  14 

0040 

0041 

0042 
004  J 

0044 

0046 

0046 

0047 
0046 
0040 
0060 
0061 
0062 
0061 
0064 
0066 
0066 

0067 
C066 
0064 
0060 
006  1 
006  2 
0061 
00e4 
0066 
0066 

006  7 
00  6 6 
0064 

0070 

0071 
00  71 

0071 

0074 

0076 

00  76 

007  7 

00  7 6 
00  74 


1V-PLUS  V01-04u  17116:11  22-NAK-76  HAot  1 

/ 1 4/T6 : BL0CK6/ *H 

HHU*HV  AH  11) 

KLAD16.1001)  lXll),Yll),I*t,NC) 

<•6171(6,10011  lMl),m),l>l,l»C) 

1 2*Ni 

1AINBL0K6)*I2 
IKUVAHlD.Nt.O)  1AI  l 2 ) * 1 
1AI 12*1 ) *NC 

C- A HI.  A A NO  CfcNTNOll)  Of  1HI6  BLOCH  — 

AHtA*t XI 1 )-XlNC) )*1 Yl 1 OY1NC) ) 

101X1  1 )-XlNC)  ) • t 111  1 )-YlNC)  )*l  Y 1 I )«2.0*Y  INC)  )*1.0*VINC)**1 ) 
XC«lYl  1 )-Y INC)  )»l  1X1  17-XlNC)  )*t  XI  1 ) «1.0*Xl NO  )*1.0*XlNo  )♦•!) 

00  110  1*2,NC 

AHtA  = AHKA+(  XI  11-Xl  1-  1 ) )»IH  1 )*YU-1  ) ) 

»c»YC»ixin-xii-i))*imi)-Yti-i))*(Yii)4i.o»m-i)) 

. *1.0*Yll-l )••!) 

XC*X01YU)-Yll-l))4lU(l)-X(I-l))*Ull)42.0*Xll-l)) 

. ♦1.0»X(1-1)»*1) 

110  CONTI  Nine 

AHtA»0. 6»ANf  A 
lC«YC/16.0*AHf.A) 

XC*-XC/(6.0*AHf A) 

YC*IYC-YL)*SFACT 
XOIXC-XLMSFACT 
AHtAiANtA*.SFACr»Sf  ACT 
All2*2)*XC 
Al  12«1)*YC 
Al 1 !♦ 7 ) iAHKA»HMO 

C LOCAL  COOKU 1 NAILS  f OH  TH16  BLOCK 

N1*M1«NVAHB 

AIN1)*IX1 1 )-XL)*SFACT-XC 
A(NJ«I >■<  Y(  I )-YL)».Sf  ACT-YC 
00  120  1*2, NC 

AlNl*l)*lX(l )-XL)*Sf ACT-XC 
A(Nl*4)*l Y l l )-YL)*Sf  ACT-VC 

AlNl4l)*S0NTl l A1N1*1)-A(NJ) )**2*<AlM114)-AlNlM))4*2) 

120  N 1 *N 1 ♦ 1 

A(Nl4l)«8UHTl l Al 1 2+N V AHB ) - A l N 1 ) )**2«l A l 124NVARBM ) -A l Hill ) )•*!) 
Nl*N Jtl 

C MONtNl  Of  INtHTIA  — 

KMU1 *0.0 
1C*12*NVAHB 
00  110  NP* 1 , NC 

AHtA»A(  IC)»A(  lOI  ) ♦ < A ( lO  1 ) -A  ( 1C ) > * 1 A < 1 04  ) ♦ A 1 1 0 1 > > 

. - All01)*All04) 

AH AA*0 . 6* AHKA 

TOP*  A l 1C)  **24 A l lOl  )**2«AU0  2)**2«A(  104)4*2 
. «A(lC)*AllO  !)♦  A(  1C*1  )*AUC«4) 

HN01*HN01«AHt  A4TLMP/6.0 

no  10101 

ANt A*  A 1 1C  7 6 A ( 1C ♦ I )♦! At  1 2*NVAHb)-Al 1C) )*1AI lltNVAHB* I Y ♦ A A 1 0 1 ) ) 

. - Al  1 2«NVAHB) *Al I 2«NY AHB*1 ) 

AHt A*0.6*AHKA 

TtNP*Al 124NYAHB)**2*A1 1 2«NV AKB* 1 ) A l 1C ) * »!♦ A l 1C ♦ 1 ) * *2 
. »AU2«NVAHHl*AilC)*All2»NYANH«l)*AilOI) 

HN01iHN01*AKLA*lLNP/6.0 
A(12*6)*KNOI*KBO 


286 


FORTRAN  1V-PLUS  V02-04G  17:36:23  22-MAK-7B  PAGE  3 

NEXT. FIN  /14/THIBL0CKS/MR 


C 

C- — ---------- — BACK  TO  GLOBAL  CO-ORDINATES  — * 

0080  IC  = I 26NVARB 

0081  00  140  NP=1,NC 

0083  AUC)*AUC)*A(12  + 2) 

0083  AUC*l)tA(lC«l)*A(U*3) 

0084  140  IC*IC*3 

0085  ■HITLCb, 2002 ) XC , YC , A ( 1 2*7 ) , A ( 1 2 ♦ 8 ) 

0086  GOTO  10 

C * DELETE  A BLOCK  

0087  150  GOTO  40 

C — DUMP  MEMORY  AS  REQUESTED 

0088  200  LOC 1*1VAR(1) 

0089  LUC2*I V AR l 2 ) 

0090  IP ( LOC2  . NE  , 0 ) GOTO  220 

0091  LUC2-LOC1 

0092  LOC 1=1 

0093  220  CALL  DUMP 

0094  GOTO  10 

C — ------ — CYCLE  ROUND  MOTION  AND  FORD  — - 

0095  250  NCYCzlVARU) 

0U96  IFINCYCLE.EQ.O)  CALL  BOX 

0097  RETURN 

O — ............. — sT0p  COMMAND 

0098  300  CALL  FINISH 

c — — — — — — — — PLOT  command 

0099  350  CALL  BPLuT 

0100  GOTO  10 

C — — — — — — — — — RETURN  TO  PHASE  1 

0101  400  CALL  SETUP 

0102  GOTO  10 

C SET  REAL  DATA 

0103  450  1ADR=1VAH(1) 

0104  IF11ADR.LE.O.OR.IADH.GT.M7)  GOTO  480 

0105  A( IADH)=RVAR(2) 

0106  GOTO  10 

0107  480  MH1TE(6,3002) 

0108  GOTO  10 

C SET  INTEGER  DATA 

0109  500  I ADR  - 1 V AR ( 1 ) 

0110  IF(IADR.LE.0.0R.1ADH.GT.M7)  GOTO  48U 

0111  1A(IADR)*IVAK(2) 

0112  GOT 0 10 

C — — — . — — — — — — MOMENTUM  t energy  check 

0113  550  CALL  CHECK 

0114  GOTO  10 

C- GRAVITY  

0115  600  GRAVYsHVARt 1 ) 

0116  GRAVX*RVAR(2) 

0117  GOTO  10 

C — ----------------  CONTACT  STIFFNESSES 

0118  650  STlFNsRVAR(l) 

0119  ST 1FS*RV  AH ( 2 ) 

0120  GOTO  10 

c — - -------------  RAYLEIGH  DAMPING 

0121  700  P12zB.0*ATAN(1.0) 
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FORTRAN 

NEXT.FTN 

0122 
01  2 3 
0124 
012b 
0126 
0127 
0120 
012V 
01  JO 
01  J1 
01  J2 
01  JJ 
0134 

01  Jb 
01  J6 

01  J7 
01  JO 
01  JV 

0140 

0141 

0142 
0 1 4 J 

0144 

014b 

0146 

0147 
0140 

014V 
OlbO 
Olbl 
0 1 b 2 
OlbJ 
01b4 

Olbb 
0 1 be 
0157 
OlbO 

OlbV 

0160 

0161 

0162 

0 1 6 J 
0164 

0 1 6b 
0166 
0167 
0160 
016V 
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/ I4/TR I BLOCKS/ MR 

ALPHA»PI2*HVAR11)»RVAR12) 

BETAsRVAR! 1 )/ !P12*RVAR!2)  ) 

1F(1VAH!3).EU.0)  CO  70  710 
ALPH A=0 • 0 
NR11EI6, JOOJ) 

710  IFUVAR14)  .60.0)  GO  TO  720 
BeTAeO.O 
»R1TE!6, 3004) 

720  IFlMCKCLE.tU.O)  GO  TO  10 
BUT*BETA/TDEL 
CON1*1.0-ALPHA*TDEL/2.0 
0)02=1.0/ ( 1.0tALPHA*TDEL/2.0) 

GOTO  10 

C-- ---------  FRICTION  COEFFICIENT 

7 bO  FRIC=NVAR!1) 

GOTO  10 

C--....— ...........  ZERO  ALL  VELOCITIES  

000  DO  020  NB=  1 , NBLOKS 
I2«1A(NB) 

A ! 1 2*b ) *0 . 0 
A!12*6)=0.0 
A!12*7)=0.0 
820  CONTINUE 
GOTO  10 

C- ...............  stT  BLOCK  LOADS  

8bU  NBsIVAHlJ) 

WilAOIM 

Al I2» lb )=HVAH!  1 ) 

A!I2M7)=RVAR!2) 

GOTO  10 

C INTERNAL  BLOCK  DAMPING 

VOO  P12=8.0*ATAN11.0) 

ALPMB=P12*HVAR! 1 )*HVAH(2) 

IF(MCtCLL.EQ.O)  GOTO  10 
CONI B= 1 .O-ALPHB‘TDEL/2.0 
C0N2B=1 .0  / ( 1 .OtALPHBMD  EL/2.0) 

GOTO  10 


C ELASTIC  PROPERTIES  1 OR  BLOCKS  - — 

VbO  G=KVAR(2) 

LANE1=NVAK! 1 ) *4.0*G/ 3.0 
LAME2=RVAR( 1 )-2.0*G/ 3.0 
GOTO  10 

C LOCKED  OH  UNLOCKED  JOINTS 

V7U  LOCK=AVAR! 1 ) .EU.4H0N 
GOTO  10 

C PL AST  1C  1 T V CONSTANTS  — 

VBO  *IELD*RVAHi 1 ) 

GOTO  10 
C 


1000  FORMAT ( 20A4 ) 

1001  FORMAT! 10X, I 10,1 10.0 , 1 10) 

1002  FORMAT (HF10.0) 

1003  FORMAT (1  OX, 2110) 

1004  FORM AT(1 OX, 110, FI  0.0) 

100b  FORMAT! 10X.2F10.0) 

1006  FORMAT! 10X.2F10.0, 21 10) 
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iuhthan  if-plus  i 102-040  imoui  jj-hah- 7b 

HMI.ITN  /14/THlBLOCNb/aH 


01  70 

1007 

7' OHM  A T ( BOA  1 ) 

0 l 7 T 

2000 

FOKM AT ( l X , 

4H*»« 

* 20 A4 , 4H  ♦ ♦♦. 12X, 10A1  ) 

0172 

2001 

FOHMAT (IX, 

4(  1H( 

,712.4, 1M. ,712.4 

,1H  ) )) 

0171 

2002 

FOHNATC 1KM 

XC.  VC.MASS.HMOl  I.1P4L12.1) 

0174 

1000 

7 OHM  ATI  2«H 

1 l ! 

tHHOH  : 1 LLtGAL 

COMMAND ) 

01  IS 

1001 

70HMATI 14H 

1 1 • 

tHHOH  1 COMMAND 

NOT  AVAlLABLt ) 

017b 

1002 

FOHMAT ( 1 1H 

Jli 

tHHOH  1 ADDHESS 

OUT  07  H ANCt ) 

0177 

JOOi 

FOHMAT! 10X 

, JtfHHA.S.S  DAMPING  TtKH 

5tT  TO  2.7  HO ) 

01  10 

1004 

C 

7 OH H A T l 10X 

, I4HST  1 tTNESS  DANCING 

TEHM  SET  TO  ZEHO) 

0170 

two 

PHOCHAM 

SECTIONS 

NAME 

SIZE 

ATTH 1 bUTES 

•comet 

005472 

1417 

HO , 1 , CON , LCL 

4P0ATA 

UOOOSb 

21 

H a ,0. CON, LCL 

1 1 u a r a 

00045b 

151 

HM,0,C0N,LCL 

MARS 

00110b 

155 

Ha  , l> , CON  , LCL 

tTENPS 

000014 

14 

Hm ,0, CON, LCL 

. (4(S . 

047040 

10000 

Ha , 0 , OVK , CBL 

CBLOCK 

UU0450 

152 

hh ,p,ovk,cbl 

1 Ah 

OOOb  10 

220 

hh,o,ovk,lbl 

TOTAL  SPACt  ALLOC  A 1 bl>  = 0bl>200 


PAGE  5 


NtXT,0*NtXT 
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PARSE. FIN  /I4/TK:BL0CNS/wR 

0001  SUBROUTINE  PARSEllCODE,  IERR) 

C 

C HOUT1NE  TO  PARSE  INPUT  LINE  ACCORDING  TO  EXPECTED  NUMBER 
C AND  TYPE  OE  ARGUMENTS  FOLLOWING  A COMMAND  NURD. 

C THE  COMMAND  »ORD  IS  DISCARDED  (IT  IS  UP  TU  THE  USER  TO 

C interpret  the  Command  nurd). 

C WRITTEN  HY  P.A.  CUNOALL,  JULY  4,  1 V 7 7 . 

C MODIFIED  NOV  4,  1977  HY  P.A.  CUNOALL  TO  USE  DECIMAL 
C CODES  INSTEAD  OE  OCTAL. 

C 

C NOTES:  1)  ARGUMENTS  CAN  HE  SEPARATED  BY  BLANKS  UR  COMMAS 

C 2)  MULTIPLE  CONTIGUOUS  SEPARATORS  ARE  TREATED  AS  UNE 

C 3)  MAXIMUM  NUMBER  OF  ARGUMENTS  IS  10 

C 4)  LAST  ARGUMENT  MUST  NOT  BE  ALPHANUMERIC 

C 

C INPUT:  1)  1CODE  (32  BIT  NURD).  THIS  IS  PACKED  N 1 TH  UP  TO  TEN 

c numhehs  denoting  the  expected  form  and  number 

C OF  ARGUMENTS.  THE  CODES  ARE: 

C 0 = NOTHING 

C 1 = INTEGER 

C 2 = REAL 

C 3 = ALPHANUMERIC 

C EXAMPLE:  1CODE  = 1321  MEANS  - 

C FIRST  PARAMETER  IS  INTEGER 

C SECOND  IS  REAL 

C THIRD  IS  ALPHANUMERIC 

C LAM  IS  INTEGER 

C 2)  LINE(BO)  ...  THIS  IS  THE  INPUT  LINE  IN  BOAl  FORMAT 

C 

C OUTPUT:  1)  HVAR( 10) , 1VAH( 10) , AVAR! 10) 

C THE  jnPUT  PARAMETERS  APPEAR  IN  THE  APPROPRIATE  ARRAY. 

C FOR  EXAMPLE,  AN  INTEGER  VARIAHLE  AS  THE  THIRD  PARAMETER 

C mould  turn  up  in  ivar(3). 

C UNUSED  VARIABLES  APPEAR  AS  ZERO  OR  BLANK 

C 

C 2)  IERH  = 4 INDICATES  AN  ERROR  RETURN 

C 

0002  COMMON  /PAR/  L 1 NE ( BO ), R VAR ( 1 0 ), 1 VAR ( 1 0 ), AVAR ( 1 0 ) 

0003  DIMENSION  ML  I NE  ( 20 ), LPOl N 1 ( 20 ), WORD ( 5 ), LCODE ( 1 0 ) 

C 

0004  DO  5 1=1,10 

0005  HVAR(1)=0.0 

000b  1 V AR ( 1 ) =0 

0007  5 AV  AK  ( 1 ) =4H  I, 

C 

OOOB  IERR=0 

0009  N AN 0 = 0 

0010  LMAX=H0 

0011  NGAP=0 

0012  L=1 

0013  GO  TO  15 
C 

0014  10  IF(LINE(L) .NE. 1H, . AND.LINC(L) .NE. IH  ) GO  TO  20 

0015  NGAP=NGAP*1 

0016  15  L = Lk1 

0017  lF(L.GT.LMAX)  GO  TO  100 


► UN  l'NAN 
3>ANS1.  . 3 

0U1N 
0018 
OOZO 
00Z1 
0022 
002S 
002  4 
002 b 
00  2b 
0021 
00Z8 

0024 

0010 

OOil 

oo  jz 
00  JJ 
00  J 4 
00  Jb 
00  36 
00  J 7 
00  JO 
00  JO 

0040 

0041 
00*2 
004  J 
0044 
004b 

0046 

0047 
004b 
0040 
OObO 
OObl 
OObZ 
00b  J 
00b4 
OObb 

OObe 

00b7 

OObH 

OObO 
0060 
006  1 

00  6 Z 
006  J 
0064 
ooeb 
0066 
006  7 
0068 
0060 


IV-8LUS  V U Z -0  4v,  17U7147  Zi-NAH-7b 

In  / 14/TH ibLOCkb/ bH 

uu  ro  io 

20  13  lNO4N.tO.01  00  ril  lb 
DO  JO  LL*L,LNAX 
JO  LlNt(LL-NOAH)*LINtlLL> 

LNAX*LNAX-N0A1» 

L*L-NlAI> 

NANO=NAHO»  1 

L3>UlNTlNAH0)*L 

N0A1’*0 

00  TO  lb 

100  LF01NT  INANO*  1 1 sLNAX-Ni.ANo  1 

C 

1C- ICOOfc 
l AH6*0 

DO  110  1*1,10 
1CN* IC/ I 0 

lCODM 1 )*IC-1CN*10 
1C* 1CN 

13(LCUOKll).tO.O)  oOTll  120 
110  IAN0*1AN0M 

no  13 l lAHO.Ot.NAHO)  00  TO  1 Jo 

izt  b« ith 6, 700) 

700  30HNAU  JOX.  1 7hlLLtOAl.  3'AHAHtTtN) 

1 CNN  * 4 
Ht  I'UHN 

1J0  IFiNAHO.iO.O)  NtTUHN 

00  200  1*1  , hAKii 

L*L3>01NTl 1 ) 

NS1ZK*D>01NTI  1«1 >-L 
00  140  N * 1 , Z 0 
140  NL1NL1N)*1H 

13'  3 LCOOt  ( 1 ) . tO  . J ) 00  TO  1 7w 
Ll*Zl-NSlZfc 
00  IbO  N*L1,J0 
HLlNt  IN)*L1NML) 

IbO  L*L* 1 

LNCOUMZO.  lbl  ,bl)NO)  HLlNt 
1 b 1 3'0HNA  T l ZOA  1 ) 

00  TO  l 1 bb , l 6b ) , LCUOtll) 


C 1N13  03  N 

1 bb  OtCOOti;0,lb6,»ONO,tKH*121)  lVAKll) 
I b6  30HNATUZO) 

00  TO  200 

C HtAl, 

1 6 b DtCODJ  no  , I 66  , bONO  , IKK:  1 2 1 ) KVAKU) 
166  FOHNATlJ ZO.O) 

00  TO  ZOO 

C AD'NANUNfcK  1C * 


170  NSlZt*NlN0l4,NMZt) 

00  180  N*1 , NSIZt 
HLlNMNlaLINtU.) 

180  L*L*  1 

tNCOOt  14, 18  l , AV  AN  1 1 ) ) lNLlN3.nl),  0*1, 4) 

181  3‘OHN  AT  1 4 A 1 ) 

200  CUN11N03 

NLTONN 
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BUX.M'N  2 14/ IK : BLOCKS/ wH 


0001  MlbNUUTlNE  BOX 

C 

C ALL  BLOCKS  HAVE  bEEN  CNEATED, 

C --  BLOCKS  LAN  NOW  bt  BOXED  ----- 


00  0 2 
000J  • 

0004  » 

0005  » 
000b 
0007  • 


INCLUDE  'COMMON. FTN' 
COMMON  A l 5000) 
U1MENS1UN  l A 1 1 ) 
EQUIVALENCE  LA, 1 A ) 
INCLUDE  • CBLOCK . FTN  1 
LOGICAL  LOCK 


OuOb  * 
0004  • 
0010  • 


LOGICAL  KE LAG, UE LAG, EE  LAG 
NeAL  LAME  1 , LAME2 

COMMON  /CBLOCK/  HEDl  20 ) , NbLUKM.NBOXES, Ml „M2 , Ml , M4 , Mb, Mb , M7  , 

. N BLOKS, NC Y C, NC Y CLE.NEMPT.KEL AG, UE  LAG, EFLAG.TFNAC, 

. rDEL,lBOAES,JBOXES.XL,XU, YL.YU.BSIZE .SFACT, XSIZE , 

. (MU  , UDMAA ,UNOST,ST  IFN , STI E S , FH K . BETA , bDT , ALPNB , 

. CONI .CON  2 , ALPHA, NVAKB,NBN,1BK,NPK, LAME 1 , L A M E 2 , 

. G.CON1 b, CON2B, GKAVX , G K A V Y . LOCI , LUC 2 , NUPDAT , Y 1 ELD , 

. LUCK . LBLUCK 


C 

0011  M4-MltNHUAES 

0012  M5-M4 

C INITIALISE  bOX  POINT! Ks  

001J  11=M4-1 

0014  DO  10  1=M1,11 

0015  10  1 A 1 1 ) =0 

C LOOP  ON  EACH  BLUCK 

001b  DO  50  Nb-l.NBLONb 

0017  !2-lA(Nb) 

00  lb  NC= I A 1 1 2 ♦ 1 ) 

0014  1C= 1 2*NV  Akb 

C LOOP  ON  EACH  COKNEK 

0020  DU  40  NP-l.NC 

0021  X = A l 1 C ) 

0022  YsA(ICtl) 

0021  ldOX  = MlNOC IFIXIX/BS1ZE)*1, 1 BOXES) 

0024  JbUX=MlNOllEIXlY/bS12E),J BOXES- 1) 

0025  Nt)OX  = JHOXMHOXES»lHOX 

002b  llsMl+NBOX-1 

0027  IAIM5+2)=1 A( 1 1) 

002b  1 A L 11) =M5 

0024  IAIM5)=NP 

0010  l A 1 M5a 1 ) = NB 

0011  M5=H5»1 

0012  IC=1C+1 

0011  40  CONTINUE 

C 

0014  50  CONTINUE 

C 

0015  Nb=M54NBLUKN 

001b  DO  bO  IxMS.Mb 

0017  bO  IAC1)=0 

C .... CHEATE  EMPTY  LIST  TU  END  OF  NEMOKY 

001b  NEMPT=Mb 

0019  lb=Mb+4 


r 


- 292  - 


KUHTR  AN  1V-PLUS  V02-04G  17:38:13  /2-MAP-7B 

BOX  • FIN  /14/TR:bLOCAS/«R 


0040 
uO  4 1 

0042 

0043 

0044 

004b 

0045 
0047 
0040 
0040 

0050 

0051 

0052 

0053 

0054 

0055 
005b 
0057 
0050 

0050 

0060 

00b  1 


DU  00  l=Ib,M7,13 
J = 1 

lACl)=l+0 
00  CUNT1NUE 
I A i J ) =0 

C DETERMINE  TIMESTEP 

TDEL- 1 • 0E20 

DU  100  Nb= 1 , NBLOKS 

12=IA(Nb)*7 

TN  = 2.0»SURT(AU2)/STIKN) 
TS=2,0*SQRTCA112)/STIES) 

TDEL= AMIN 1( TDEL, TN,TS) 

100  CONTINUE 

TUEL=TDEL»TFKAC 
«RITE(b,2000)  TDEL 

c SET  OP  DAMPING  TERMS 

BDT  = bET  A/ TDEL 
CUN1=1.0-ALPHA»TDEL/2.0 
CUN2=1 .0/ ll.0*ALPHA»TDEL/2.0) 
CON1»=1.0-ALPM8*TDEL/'2.0 
CUN2b=1 .0/Cl .0«ALPHB»TdEL/2.0) 

C 

HtTUHN 

C 

2000  EUNMATI3UX,17H  TINE  INCREMENT  =,1PE12.4) 

C 

END 


PROGRAM  SECTIONS 


NAME 

SIZE 

ATTRIBUTES 

SC0DE1 

002120 

552 

R» ,1,C0N,LCL 

SPOATA 

000004 

2 

Kw  ,U,CON,LCL 

SIDATA 

OOoObO 

24 

KN,0,C0N,LCL 

SVAHS 

000104 

34 

RN ,D,CON,LCL 

STEMPS 

00000b 

3 

HN ,U,CUN,LCL 

.ssss. 

047040  10000 

H» ,U,OVR ,GBL 

CBLOCK 

0004b0 

152 

Hu ,d,uvr,gbl 

TOTAL  SPACE  ALLOCATED  = 05203b  107b7 
B0X,0=b0X 


L. 
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CUCLE.KTN  / 14/ TK:oLOCKS/*b 


000  1 


0002 
000J  • 
0004  • 
000b  • 
000t> 
0007  • 

oooo  • 
oooo  » 
00 ' 0 • 


c 

c 

c 


SUBKOUl  1NE  CYCLE 

OHIVfcK  EON  ITERATIONS 

INCLUDE  •CUNMON.ETN’ 

COMMON  A15000) 

DIMENSION  UU) 

EQUIVALENCE  IA,1A) 

INCLUDE  • CO  LOCK  . ETN  1 
LOGICAL  LOCK 

LOGICAL  KELAG.UELAG.EELAC 
HEAL  LAMt.l,LANt2 

COMMON  /C BLOCK/  MEOt 20) , NBLOKM , NBOXtS, Ml , M2 , Mi, M4 , M5 , Mb , H7  , 

. NBLOKS,  NCYC.  MCYCLE  , KEMPT  , RE  LAO,  UELAG  , 1 t LAG,  TEKAC, 

. TDEL . IBOXES. JBOXES , XL, XU, YL,  Ul  ,BS1ZE , St  ACT, XS1ZE, 

. Y SIZE, UDMAX, UMUST, ST1EN. STIES, FR 1C, BETA, BDT.ALPHB, 

. CON  V .COM2 ,ALPHA,N\AHb,NBK,lBH,NPK,LANtl,LAME2, 

. G , CON  1 b, CUM 2b , OKA  V X , GKAV 1 , LUC1 , LUC 2 , NUPDAT , Y I ELD , 

. LOCk'.LBLOCk 


0011  00  100  NC*CLE= 1 , NC1C 

0012  HClCLt=MCYCLt* 1 

C UPDATE  It  NtCESSARY  

OOli  IE  CUE  LAG)  CALL  UPOAT 

C SCAN  ALL  BLOCKS 

0014  UDMAX=0. 0 

0015  00  20  N bK  = 1 .NbLOKS 

Oolo  1 BK  = 1 A 1 NBK ) 

0017  CALL  MOTION  ( A ilBK  ) ) 

001b  20  CONTINUE 

00 1 V 00  2 S Nb=  1 , NBLOKS 

0020  ln  = l A t Nb ) 

002  1 25  CALL  STKESS(AUB)) 

C EXIT  It  NOTHING  MOVtl’ 

0022  It (UDMAX. EG. 0.0)  GOTO  110 

C UPDATE  CONTACTS  ! 

0021  UMOST:UMUSr*UUNAX*TOt L 

0024  It'lUMOST.LT.  1 ,0)  GOTO  10 

C its 

0025  UE  L AG: . TRUE . 

C SCAN  ALL  CONTACTS 

002b  10  00  50  NB=1,  NbLOKS 

0027  1BE=1AINB) 

002b  Jb=M5*NH-l 

0024  40  IbsIAIJB) 

0010  Itllo.EO.O)  GOTO  50 

0011  J bC : I A ( 1 0 + 1 ) 

0012  IbC=IA(JBC) 

0011  CALL  EOKOlAt 10) , Al 1BC) , AlIBE) ) 

0014  Jo: 1 0*4 

0015  GOTO  40 

OOlo  50  CONTINUE 

C 

C- ........ END  CYCLE  LOOP  — - 

C 

0017  100  CONTINUE 
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C 

0038  110  CONTINUE 
C 

0039  RETURN 
C 

0040  END 


PROGRAM  SECTIONS 


NAME 

SIZE 

ATTRIBUTES 

SCODE1 

001212 

325 

RW ,1 ,CON,LCL 

SIDATA 

000022 

9 

RW,D,CON,LCL 

SVAKS 

000040 

16 

RW ,D,CON,LCL 

STEMPS 

000010 

4 

RW ,D,CON,LCL 

.ssss. 

047040 

10000 

RN ,D,UVR,GBL 

CBLUCK 

000460 

152 

RN ,D,OVR,GBL 

' 


TOTAL  SPACE  ALLOCATED  = 051024  10506 
CYCLE, U=CYCLE 


- 295  - 


FORTRAN  IV-PLUS  V02-04G  17:39:02  22-MAR-79  PAGE  1 

NOTION . FTN  / 1 4/TR : BLOCKS/ WR 

0001  SUBROUT I NE  MOTION ( b ) 

c 

C LAW  OF  NOTION  FOR  A SINGLE  BLOCK 

C 

0002  INCLUDE  1 CHLOCK . FTN • 

0003  * LOGICAL  LOCK 

0004  * LOGICAL  RFL AG , UFLAG , EFLAG 

0006  « NEAL  LANE1 , LAME2 

0000  * CONNON  /CBLOCK/  HED 1 20 ) , NBLOKN , NBOXES , N 1 , N2 , N3 , N4 , Mb , M6 , N7 , 

* . NBLUKS.NCYC.MCYCLE.NENPT.NFLAG. UFLAG, EFLAG, TFKAC, 

* , TDEL,1BOXES,JBOXES,XL,XU,YL,YU,BS1ZE,SFACT,XSIZE, 

* . YSI'ZE.UDHAX.UNUST.STIFN,  STUB,  FR1C.  BETA,  HOT,  ALPHB, 

* . CONI  ,CON2, ALPHA, NVARH.NBR, 1 BR , NPR , LANE  1 ,LANE2, 

* . G, CONIB, CUN2B,GNAVX,GRAVY, LOCI, LOC2 , NUPDAT , YIELD, 

* . LOCK , LBLOCK 

0007  DIMENSION  B(l) 

0008  EUOI VALENCE  ( FI  X , JF I X ) , ( ANC , NC ) 

C 

0009  F 1 X = B ( 1 ) 

C IS  THIS  BLOCK  FIXED  ? — - 

0010  IF(JFIX.NE.O)  KETUNN 

C — NO 

C VELOCITIES  FHOM  ACCF LEW ATI ONS  

0011  BtS)=(B(5)*CONl+lBl 1 0 ) /B ( 8 ) 4GRAVX ) *TDEL ) *CON2 

0012  b(6)=(B(b)*C0NlF(Btll)/B(B) +GKAV Y ) *TDEL ) *CON2 

0013  B(7)=(B(7)*CONlf(Bl 12)/B(9))*TDEL)»C0N2 

0014  b(10)=0.0 

001b  B(11)=0.0 

0016  H(I2)=0.0 
C 

0017  ANC=B( 2 ) 

C 

c determine  area  l width  — 

0019  XM1N=XSI2E 

0019  XMAX=0.0 

0020  YH1N=YS1ZE 

0021  YMAX=0.0 

0022  AREA =0.0 

0023  Kl=NVAKb+l 

0024  DU  bO  NP= 1 , NC 

002b  K2=K1*3 

0026  1FINP.E0.NC)  K2=NVARB+1 

0027  X=blKl) 

0029  YsBlKlFl  ) 

0029  XM1N=AMIN1(XMIN,X) 

0030  XMAX=AMAX1(XMAX,X) 

0031  YM1N=AM1N1 ( Y Ml  N , Y ) 

0032  YMAXxAMAXllYMAX.Y) 

0033  AHEA=AKEA*(B(K2)-X)*CBCK2+1)+Y) 

0034  bO  «1=K2 

003b  AREAx ARE A*  2 . 0 

0036  XW=XMAX-XMIN 

0037  YW=YMAX-YMlN 

0038  AM=TDEL/b(8) 

C EFFECTIVE  MASSES  

0039  EMI 1=AM/ (XW*XW) 


;;-nak-m« 


I'Ai.t 


- 2‘>d  - 


►OKTHAN  IV-PLll.N 
NOTION. ► IN 


V0;-04l, 

/ 1 4/  TH  I ni.iICNB/MN 


I ii.hio; 


00  40 

004  I 

004; 

004  l 

0044 

004N 

004N 

004  1 
0040 
00  4H 
00  NO 
OOM 
oo  n; 
OON  1 

005  4 
00  NN 
OONN 
OON  ) 
OONH 
OONH 
0 0 NO 

OOM 

o on; 

OON  * 
0 0 N 4 
OONN 
OONN 
OON  1 

OONH 


0 


c 


► Mi;«AN/lYN»Yl*l 

m*; i»m<i  i 

►:**;;•*«  w 

.... NtN  .NTH*  l N HATtS 

Bl  l ))>(HU  J)«CDMH«  *4.0*0  l ;i  >*Bl  I 7>*AKY  A)»l  NJ  | )»i  ON.'H 
Hi  J 4 > * * HI  I 4 ) *Cl'NIH*  l 4 .0*0*  J J ) - 01  1 H ) *Ahl  » > *►  N I ; 1 *i  ON.'H 
HI  l 5 ) *lHl  15)  *Cl)NI  H*  l 4 .0»HI  i J ) *Bl  IH  > »AN»  A ) »►  N;i  ) *i  ON.'H 
HI  IN) *1 Bl  IN ) «CON IIW  l 4 .0»BI ;4 ) »Bl ;o ) »»H) » ' N; ; ) *v  on;b 
..................  Ill'll*  1>  Bl.Ol'H  COHNIHN  --- 

IC*NV *HB« | 

00  I NO  NI’H*l,Nl 

ICI'KM 

X A H N * B ( K ' * B l J ) 

Y A N N « |l  l 1 C I ) - H l 4 > 

Xl'l  *Hl  5 I *B|I  I ) • XAHN*  l Bl  t 4 )-Bl  7 I )»Y  ANN 

Y l'l'«HlN  )«HllN)»YANN«lHllNl*Hl7))»XANN 
DON  AX'- AN  AX  | I Ul'NAX  , ABM  XIH'  I , ABN  i Y 00  ) ) 
lBXsBl EC) 

EBY*Bl ICE ) 

Bl  U )»Bl  EC)*XDC»TI'4  I 
IH  III)  =Bl  III  )*YlH'*ri'»  I 

!► t EHX.Nk. EM  XlBl ll  ) ) .ON. 1HY .NT . If  1 XlHl El  1 ) ) ) lA  II  HI  BOX 
INI)  1 C ■ E C ♦ i 

........ ......  nielli  BOO)  OESI’l.Ai  l N|  N1N  --- 

IH  J )«Bl  I ) «Bl  5 ) *TI'I  I 
Bl  4 )«Bl  4 ) ♦ H l N ) *TI'l  l. 


B l ; E ) » 0 . 0 

b i ; ; ) * o . o 
Bi ; ))=o.o 
b i ; 4 ) * o . o 

HI  rilHN 
►.NO 


HHOi.HAN  NKl'rlON.N 


N AN* 

N 1 it. 

ATI  K IBOTl-  .S 

Sv  001  \ 

oo;;4D 

Kn  , l , CON  , I. Cl. 

$ 1 OAT  A 

0 0 005  4 

;; 

KM  ,V  , COM  , LCL 

SVAK.s 

000154 

•>« 

KM  , l\CON  , LCL 

$TI  M|\s 

ooooi ; 

s 

KM  ,P,CON  , l.CL 

CHLOCK 

0004N0 

KM  , 0 # 0 V K , v»  IM  • 

TOT  Al.  M>Ai>  A l, loll' A Tl  0 = OO.IIdJ  h;n 


NOTION, O.nOTION 
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OOOX  SUBROUTINE  FORUIC.BC ,HE) 

C 

c FORCE  DISPLACEMENT  LAW  FOR  SINGLE  CONTACT  — - 

C 

0002  INCLUDE  'CBLOCK.FTN1 

0003  ♦ LOGICAL  LUCK 

0004  * LOGICAL  RFLAG , OF  LAG , EF LAG 

0005  * REAL  LAME  1 , LAME2 

000b  * COMMON  /CBLOCK/  HED12U)  ,NBL0KM,NB0XF.S,M1  ,M2,M3,M4,MS,Mb,M7, 

* . NBLOKS.NCYC.MCYCLE.NEMPT.KELAG.UFLAG.EFLAG.TFRAC, 

* . TDEL .IHOXES, JBOXES,XL,XU, YL, YU,BSIZE,SF AC1 ,XSIZE, 

» . YSIZE.UDMAX.UMOST.STIKN, STIES, FR1C, BETA, BUT, ALPHB, 

* . CONI ,CUN2, ALPHA, NVAKB.NBR, IBM, NPR , LAME1 , LAME2 , 

* . G, CONIB, CON2B,GRAVX, GRAVY, LOCI, LOC2,NUPUAT, YIELD, 

* . LOCK  , LHLOCK 

0007  DIMENSION  Cl  1 ) , BC 1 1 ) ,HEll ) 

C 

C RELATIVE  X 6.  V VELOCITIES  ACROSS  CONTACT 

0008  XCC=C(12)-BC(3) 

0009  YCC=C(13)-BC(4) 

0010  XCE=C(12)-BE13) 

0011  YCE=C( 1 3)-BE(4) 

0012  XDiBC(13)*XCC-MHC(14)-BC(7))*YCC+BC15) 

. -BE(13)»XCE-(bEl 14)-BE17) )*YCE-Ht(S) 

0013  YD=BC( lb)*YCCE(BC( 15)+BC(7) )*XCC+BClb) 

. -BEl lb)*YCE-lBE( 1S)+BE17) )*XCE-BE(b) 

C SHtAH  L NORMAL  DISPLACEMENT  INCREMENTS 

0014  DUS= ( X D*C ( 1 1 )*YU*Cl 10) )*TDEL 

00  lb  DUNi(YD»Cl 1 1)-XO»C110) )*TUEL 

C --  NORMAL  PORCfc 

001b  OPN=-DUN*SriPN 

0017  C(B)=C18)+DFN 

0018  II  I LOCK ) GOTO  10 

C TtST  PUR  TENSION 

0019  IPlC(B).Gt.O.O)  GOTO  IS 

0020  C(8)=0.0 

0021  C(9)=0.0 

0022  ON  = 0 • 0 

0023  DS=0.0 

0024  GOTO  bO 

C LOCKED  JOINT  

0 0 2 5 10  PRICE  = ABS(PRIC*C18) ) 

002b  GOTO  20 

C SHEAR  EORCE 

0027  IS  ERICK=ER1C*CIB) 

0028  20  DFS=DUS«ST1FS 

0029  C ( 9 ) =C ( 9 ) PDFS 

0030  lE(AHSlCl9)).Lt. PRICE)  GOTO  40 

0031  C(9)=SIGN(FRICF,C(9) ) 

0032  DS=0.0 

0033  GO  TO  SO 

C DASHPOT  FORCES 

0034  40  OS=BDT*OKS 

0035  SO  DN=BDT*0KN 

C- GLOBAL  CONTACT  FORCES  - — 


bO  FYC=CC(9)EDS)*Cl 10)-lC(8)+DN)»Cl 11 ) 


003b 
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FOKTHAb  1V-PLU6  V02-04L 


17:39:43 


22-bAK-7b 


FURD.FTb 


/ 14/ l'H  :bLOCKS/»N 


FXC*(C(9)40S)*C( 1 1 )*lC(H)4Db)*C(  10) 

. Add  CONTRIBUTION  TU  BLOCK  FORCES 

BCl 10)*BC( 101-FXC 
HCll 1 )s»C( 1 1 l-FYC 
act 12)*bci i2)-(fyc*xcc-mc»ycc) 

HEl  10)=BE(  10)*FXC 
bti  1 1 >=bti  1 1 unc 
HEl 12)=bE( 12)*IFYC*XCE-FXC»YCE) 

.........  APPLIED  STRESS  lb  BLOCKS  — 

BC121 )*BC(2I )-FXC*XCC 
BC(22)=BC122>-FXC*YCC 
BCl23)sbCl2S)-f  YC*XCC 
BC(24)=bCl24)-FYC*YCC 
BE121 ) -bt l 2 1 )*1XC»XC1 
BEl22)=ht(22)+FXC»YCE 
BE! 23)=Bt( 23)*FYC*XCt 
Be124)=HE124)*FYC*YCE 


RETURN 


PROliHAM  SECTIONS 


NAME 

SIZE 

ATTRIBUTES 

SCOPE  1 

001444 

402 

KM , l.CON.LCL 

SI  DAI' A 

000044 

lb 

Kb ,D,CON,LCL 

SVAHS 

000074 

30 

Hm ,U,CUh,LCL 

STEMPS 

000010 

4 

KM ,0,CON,LCL 

CBLOCK 

0004b0 

152 

HW ,D,OVH,LbL 

TOTAL  SPACE  ALLOCATED  = 002274  bOb 


FORD, OXFORD 


2 


mu  THAN  IV-HLU.-.  V02-04O  DMVlU  22-MAK-7B  MAot  1 

MHtS.'i.l  IN  / 14/  I’M  : BLOCK.**/  aM 


0001  MJHHUUTINt  MKIMlhl 
C 

C 1N1LMNAL  bTHLSBtS  1KUM  STNAINKATLS 

C 

0002  INCLUllt  ’ CHLUCK .1 TN 1 

000)  • LUgK'AL  LUCK 

0004  * LUO  UAL  RLLAG.UI LAG.LLLAU 

000b  • rt  t AL  L AM  L 1 , L AM t 2 

0 006  * COMMON  /CHLUCK/  Htl)  l 2 0 ) , NHLUKN  , N BUXLS  , M 1 , M 2 , M 3 , M4  , M b , Mo  , M 7 , 

* . NHLUK.S,  NC»C  , NCYCLL  .NLNRT.  KFLAG,  U)  LAI, , LI  LAo,  T)  MAC 

* . TOtL,lBOXLS,JBUXtS,XL,AL,)L,YU,B.SlZt,SFACT,XS12t, 

» . YS 1 ZL , UUMAX , UMUST  # 5T1KN , STILb , FN 1C  » BIT  A , BUT  > ALHNH 

* . CONI ,CUN2, ALPHA, NVAMH.NBH, lBK.NPK.LAMfcl .LANL2, 

* . G. CONIB, CON2B.GRAVX.GKAVY  . LUC  1 , LIIC2  , NUPUAT  , Y I tLl) , 

* . LOCK.LBLUCK 

00 0 1 U1MLNS1UN  BU) 

C .STKLS.N  HUTAUUN  CUMKLCTIUN  1)  MMB 

000B  S22C>IB( 1H)4B( IV) )*B(7) 

0000  S12Cs(Bl I 7 ) — B t 20) )*Bl7 ) 

C NtR  STMLSiLS  ----------------------- 

0010  B117)rB(17)4(B(  I J)*LAMtl«B(  1 1> ) »LAML 2-S22C  ) *Tl)LL 

0011  HI  l»)=Hl  1H)«IHI  14)*2.0»G  ♦ M2C)*TULL 

0012  HI  19)zB(  1<*)HH(  lb)*2.0*C  ♦S12C)*TDLL 

001 ) HI 20)»H120> ♦ 1BI 16)»LAML 1*B( 1 ) ) 4LANL2  ♦SZZC  ) »Tl)tL 
C 

0014  MLTUH  N 

001b  KNL) 


PHOGMAN 

htCl IONS 

N AML 

SUt 

A TTM 1 HUTLS 

SCUObl 

000274 

94 

MM , 1 .CUN.LCL 

S1UATA 

000012 

b 

HR  ,l>, CUN.LCL 

SVAHS 

000010 

4 

HR, U, CUN.LCL 

CHLUCA 

0004b0 

1 b2 

MR  . l>.  OVM  . GBL 

TUT AL  SPACt  ALLOCATtU  * 00077b  2bb 


STHKSS,U  = STHfc'S.'> 
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REHOX.7  IN  / 1 4 / 1 K : BI.IK'KS/  NR 


0001 


0002 
OOOJ  • 
0004  • 

ouob  • 
0006 
0007  • 
OOOH  • 
0000  • 
0010  ♦ 
• 
* 

* 


0011 

00  I J 

001  J 
0014 

ooib 
0016 
ooi ; 


0016 

0010 
OOJO 

0011 
OOJJ 
OOJJ 
0 0 i 4 
00 Jb 
OOio 

0021 

0020 
00  29 
00  JO 
00J1 
OOJJ 
00  J J 

OOJ4 
00  Jb 
00  J6 
00  J 7 
00  J H 
00  JV 
0040 


SUBROUTINE  NEBUX 

ROUTINE  TO  HEBOX  A SINGLE  BLOCK 

INCLUDE  'COMMON. FTN’ 

COMMON  AlbOOO) 

DIMENSION  1 A i 1 ) 
tUUlVALtNCE  l A , 1 A ) 

INCLUDE  1 CBLOCK .FTN’ 

LOGICAL  LOCK 

LOGICAL  HFLAG.UFLAG.EELAG 
HEAL  LAME  1 , LAME i 

COMMON  /CBLOCK/  HEDl JO) , NBLUKM, NBOXES, Ml , MJ , M J , N4 , Mb, Ms, M7 , 

NBLOKS,NCYC,HCYCLE.NEMpT,KFLAG,OELAG,EFLAG,TFKAC, 
TDEL,1B0XES,JBUXES,XL,XU,YL,YU,BS12E,SE  ACT.XSIZE, 
YS12E,UDMAX,  UMOST  , ST I F N , ST  1 FS , E K 1 C , BET  A , BUT  , ALPHB , 
CONI , CONi, ALPHA, NVAKB,NHH,1BK,NPK,LANE1 , LAME J , 
G,C0n1B,CONJB,GRAVX,GKAVY ,L0C1 ,LOC 2, NUPO AT, YIELD, 
LOCK .LHLUCK 

Ntt-NHP 
IB* 1BN 
NP*NPN 

ic*ib4nvarb«j»inp-i) 

ARE.  ME  AT  EDGE  OF  DOMAIN  i --- 

XE«A(IC) 

1E>AUC«1  ) 

IFIXE.GT.0.0.AND.XE.LT.XS12E.AND. 

YE.CT.O.O.ANO. 1E.LT.YSI2E)  GOTO  JO 

YES,  SIT  MASTEH  FIX  FLAG  

1AUB)*J 

A l 1B«4)=U.0 

AllBtb)*0.0 

AlIB+6)*0.0 

A11B«IJ):0.0 

A(IBMJ)=U.O 

A(lHfl4)*0.0 

All B* lb) *0.0 

HETUKN 


C NO,  WHICH  BOX  SHOULD  COHNFH  BE  IN  l 

JO  NBUX*IE1XIXE /BS1ZF  ) ♦ 1 F 1 X l YE/ BS1 ZE ) • 1 BOXES  ♦ 1 
C SEAKCH  THIS  BOX 


J4N=M J+NBUX- 1 
JO  14N*1A(J4N) 

IF1I4N.E0.0)  GOTO  40 

IFINB.EO.  1 A ( 14N4  1 ) . AND.NP.  tl).  1A1 14N)  ) HE  TURN 
J4N*I4N4 J 


GOTO  JO 

C SEAKCH  THE  SURROUNDING  BOXES  

40  N X L = M A X 0 l M 00 1 N BO  X • 1 , 1B11XES)  , 1 ) 

NXU*MIN01NXL»2,1 BOXES) 

NYL*MAXOINBOX/ 1 BOXES , 1 ) 

NYU=M1N0(NYL4J, JBOXES) 

DO  HO  JBOX«NYL,NIU 

MBOX* 1 JBOX-1 ) » 1B0XES+NXL-1 

00  70  1 BOX  *N  XL  , N XU 


3' 
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KtBlJX • KTN  / 14/TK:BLUCKS/mK 


0041 

NBUX  = MBOXM 

0042 

IKIRhOX.tU.NBOX)  GOTO  70 

004  J 

J4*=H J^MHUX-i 

0044 

bu 

MR=Mt  JAM) 

004b 

HI  14R. to. 0)  GOTO  70 

0046 

IK  INB.EG.  1AU4R+1  ) .ANU.NP.LO.  1 A ( 14R)  ) GOTO  60 

0047 

J4M=14Nt2 

0048 

c 

CUTO  bO 

0049 

bO 

1A(J4M)*1A(14R*2) 

OObO 

1AIJ4NM14H 

00b  1 

1AI 14M*2)=0 

00b2 

KtTUKN 

OObi 

70 

CONTINUE 

00b4 

80 

CONI INUt 

OObb 

MK1TK16, 1000)  NP,NB 

00b6 

tKLAG* . TKUt . 

0ob7 

CALL  FINISH 

OObH 

c 

KtTUKN 

00b9 

JOOO 

KORN AT ( 2 4H  LKKON  IN  KEBUX  : COKNtR.il, 

. 9H  OK  BLOCK , 14 , 20H  NOT  IN  ADJACENT  BOX) 

c 

0060 

LND 

RKOGKAR  stCTlONS 


NAMt 

sizt 

ATTKlbUTES 

SCODt.l 

002010 

b 1 6 

Km , 1 , CUN, LCL 

SFDATA 

000010 

4 

RH ,0,Cl)N , LCL 

$ 1 DA  r A 

000140 

48 

Km , U , CUN , LCL 

$ V AHS 

000110 

16 

KM .O.CUN, LCL 

STKMFS 

000010 

4 

RM ,0, CON, LCL 

.$$$$. 

047040 

lOOoO 

KN ,D,OVK,GHL 

C BLOCK 

000460 

1 b2 

KM  ,l',UVK,GHL 

TOTAL  .SHACt  ALLOC  A TtU  = 0b2020  10780 


P AGt  2 


KEBUX  , lJ  = KtBOX 


302 


IOHTnAn  1V-PLUS  V02-040 


1 7 : 40: b3 


22-MAK-76 


PAGL  1 


UPOAT.FTN 


/ 14/TH:bLOCKS/kk 


0001 


000  2 
OOOi 
0004 
000b 
0006 
0007 
0006 
000*7 
0010 


SOBNOUTIwL  UPOAT 


UPOATt  ALL  CONTACTS  — 


lNCLOUL  1 COMMON  • FTN  ' 

COMMON  AlbOOO) 

OIMLNSION  1 A ( 1 ) 

LOUI V ALLNCt  (A> 1 A ) 

InCLUDL  1 CBLOCK  . FTN  1 
LOGICAL  LUCA 

LOGICAL  H7LAC.UFLAG, LILAC 
HLAL  LAML1.LAML2 

COMMON  / CBLOCK / MtO ( 20 ) , NBLOKM , N80A 1 6 , M 1 , M2 , M 3 . M4 , M5 , M 0 , M 7 , 

NBLUKS,NCYC,MClCLL,NtMPT,Hl  LAG, UFLAC , LFLAG , TFK AC . 
TOLL,  JBUXt.s,  JBUXLS,  XL,  All,  YL,  YU.HSIZL  , SF  ACT,  XS1ZL  , 
YS1ZL ,UDMAA,OMOSt , ST  1 FN  , ST  1FS  , FR  1C  , BLT  A , BUT  , ALPHb, 
CONI  ,CON2.  ALFMA,NVAKB.NBK,IBH,NPR(LAML1  , LAME2  , 

G, CON 1B.CON2B.GRAVX. GRAVY .LOCI ,LOC2,NUPDA1 , Y1LLD. 
LOCK .LBLOCK 


0011 

LOGICAL  LIN ST 

l) 

LOGICAL  OLBOo 

u 

LATA  OLBUG/ • TRUE • / 

0012 

OATA  TOL  /l.O/ 

c--« 

001  3 

UU  bOU  Nrt = 1 0 NbLUKS 

0014 

12-1ACNB) 

001b 

NC* I A ( 12*1 ) 

C-  — 

0016 

1LNU2=12»NVANB 

001  7 

00  400  NP-  1 ,NC 

OOle 

FIRST*. TRUE. 

0019 

lLNOl = 1LND2 

0020 

1 LN02  * l LNO 1 + 3 

0021 

U(NP.tO.NC)  1LND2* 1 2*NVANM 

c 

0022 

X 1 =A  ( 1 LNOl ) 

0023 

X 2*  A ( 1LN02 ) 

0024 

Y 1 * A( 1LND1 4 1 ) 

002b 

Y2*A(1LN02*1 ) 

0026 

X01F*X2-X1 

0027 

YU1F=Y2*Y1 

0026 

Z-SONT (XUIF*XD1F*YD1F*YU1F) 

0029 

All LNOl 42 ) =2 

0030 

XXHAMIN11X1  ,X2) 

0031 

XX2*AMAX1(X1,X2) 

0032 

YY1*AMIN1(YI,Y2> 

0033 

YY2=AMAX1(Y1,Y2) 

0034 

NXL*IFIX( ( XX1-T0L)/BS1ZL)*1 

003b 

NXUsMINOUFIXt  IXX2*T0L)/BS1ZL)«1 

0036 

NIU1FUU  YY1-T0L)/«S1ZL)*1 

0037 

NYU*N1N011F1X(1YY2*TUL)/BSIZL)*1 

0 

1F10LBUG)  PRINT*,  * NPL , NXYLU ’ , NP 

c--< 

0036 

DO  3bO  JBOX  = N Y L , N YU 

0039 

NHOX  * ( JBOX- 1 )*IB0XLS+NXL-1 

303 


FORTRAN  lv-FLUS  V 0 2 - 0 4 G 17:40153  22-NAH-7*  PACE  2 

UPOAT.ErN  214/ l'R  : BLOCKS/ »R 

0040  Dll  300  IBOXsNXL.NXU 

0041  NBOXiNBOX'l 

004 2 14*1AIN3*NB0X-1 ) 

C- INI'  OK  BOX  LIST  ? 

0043  210  CONTINUE 

0 lFlUEBUG)  PRINT*, 1 N8UX, I4.NPC.NBC' .NBOX, 14, IXI4) , I Al 14*1) 

0044  iril4.EO.O)  GOTO  300 

C NO,  IS  THIS  BLOCK  NB  ? 

0045  IF(1A(14M).NE,NM)  GOTO  220 

C - - ... 

v. LET  NEXT  t N1H 1 IN  THIS  BOX 

0040  2 1 5 l 4 * l A l 1 4 ♦ J ) 

004  7 CO  TO  210 

C ..... 1 IK  ST  TINE  THROUGH  7 

004H  220  11 l .NOT. 7 1HST)  GOTO  230 

C YES,  CONFUTE  COS,  SIN  FOB  THIS  El'GE 

0044  FIRST*. FALSE. 

0050  cusA  = xtmvz 

0051  S1NA=YD1F/Z 

C CONFUTE  COHNEK  COUHOINATES  KELAT1VE  TO  EDGE  

0052  230  1 2C* 1 A ( 1 44 1 7 

0053  1 2C*1 A ( 1 2C  7 

0054  1C*12C*1Ai l47*3*NVAHB-3 

0055  Y THAI  1C*1  7-Y  1 )»COSA 

. - 1 A 1 1C  7 “X 1 7 *5  IN A 

l'  IF  l DE  BUG  7 PRINT*,*  YT’.YT 

005b  lE(TT.GT.l.O)  GOTO  215 

0057  IE  IYT.LE.-3.07  GOTO  215 

005B  XT* 1 A 1 1C  7 -Xl)*COSA 

. *IAI IC*1 7-Y 1 7»S1NA 
l)  1 F l DEBUG  7 PH  1 N 1 • , * XT', XT 

0054  1EIXT.GT.17  GOTO  215 

00*0  1F1XT.LT.0.07  GOTO  215 

C CONTACT  LIST  FOB  BLOCK  NB 

00*1  J*sN5«NB- 1 

00*2  16* I Al J*  7 

C END  OF  LIST  t 

00*3  235  CONTINUE 

00*4  lEllB.Eil.O)  GOTO  250 

c — NO.  SANE  COKNeN  and  EDGE  ? 

00*5  IF(IAII47.EG.1A11**2).AND.1A(14*17.E0.1A11**37 

. .AND. NP. Ell.  lAl  l**l  7 7 GOTO  240 

C NO.  i,EI  NEXT  E.NTHY  IN  CONTACT  LIST 

D IF  ( DEBUi.  7 PHINT*,'  GET  NEXT  ENTKY  ' 

00**  J*s l**4 

00*7  IBsIAiJb) 

00*0  GOTO  235 

C CONTACT  ALKEADY  STORED 

00*4  240  IE IYT.GT.-2.07  GOTO  245 

C-- ....... APPLY  DRIFT  CORRECTION 

0 0 7 0 MRITEI*, 30007 

C UPDATE  CONTACT  DATA 

0 0)1  245  Al 1**47  SS1NA 

0072  Al lh* 107*COSA 

0071  All**II7*AllC) 

0074  Al Ib«127*AI IC*I 7 
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FORTRAN  1V-PLUS  V0J-04G  17:40153  JJ-NAR-76  PACE  J 

UPDAT.FTN  /I4/TH:BL0CNS/NH 

007b  1 A l 1 b ) = 1 

0 IF1DFBUG)  PH  I NT  * . 1 UPDATE  CONTACT  DATA* 

0076  GUTU  Jib 

C — NE«  CONTACT  ? 

0077  JbO  CONTINUE 

0 1FIDEBUG)  PRINT*,  * CUT  TO  JbOl' 

0078  IF(YT.GT.O.O)  GOTO  Jib 

C VES 

U lFlDEBUO)  PRINT*, 1 NEN  CONTACT' 

0078  Ib-NENPT 

0080  ICKS1C-3 

0081  IF(1A(14).EQ,1)  ICH- 1 C ♦ 3* U A l 1 2C* 1 ) - 1 ) 

008  J YIR*(  A(  ICR*  1 )-Y  1 )*C05A 

. -lAlICK)  -X1)*S1NA 

U IF (DEBUG)  PRINT*,'  YTR'.YTK 

0083  IF (YTR.LE.-J.O)  GOTO  Jib 

0084  1CL*1C»3 

0085  1F(1AU4).E0.1AU2C*1))  1CL=  1 JC*NV  APR 

0086  YTL*(A( 1CL*1 )-Yl }*COSA 

. -CAIICL)  -X1)*S1NA 

U lFlUEBUG)  PRINT*, ' YTL'.YTL 

0087  1FIYTL.LE.-2.0)  GOTO  Jib 

C ANY  SPACE  AVAlLAbLE  IN  ENPTY  LIST  i 

0088  iriIAlNENPT*4).NE.O)  GUTU  J60 

0088  RHlTElb, 3001 ) 

0080  CALL  FINISH 

C NE»  CONTACT 

0081  JbO  A1J6*S)*0.0 

008  J A(lb*b)=0.0 

0083  Allb*7)=0.0 

0084  Al lb+R)=0.0 

008b  1 A 1 16*1 ) =NP 

0086  IAlIb*2)=IA< 14) 

0087  1 A l Ib*3)=lAl 14*1  ) 

0088  NEHPTMAl  Ib*4) 

0088  IA(J6)=16 

0100  X A C 1 b*4 1 =0 

U lF(DEBUO)  PRINT*,'  REALLY  IS  A NEM  CONTACT!!!' 

0101  GOTO  J4b 

C END  OF  BOX  SCAN 

0 1 0 J 300  CONTINUE 

0103  350  CONTINUE 

C t NO  OF  EDGE  SCAN 

0104  400  CONTINUE 

C SCAN  CONTACT  LIST  FOR  PRESERVE  FLAGS  

0105  J6=HS*NB- 1 

010b  lb-lAUb) 

C END  OF  LIST  ? 

0107  410  IFU6.E0.01  GOTO  480 

C * NO 

C — IS  THE  PRESERVE  FLAG  SET  ? 

0108  1FUM  lb)  .FO.O)  GOTO  4J0 

C YES 

1>  IF  l DEBUG ) PRINT*,'  PRESERVE  FLAG  SET* 

0108  1AU8)=0 

0110  415  Jb  = lb*  4 


J 


JOS 


KONTNAN  U-PLUs  V02-04O  l?:40:5J  22-NAN-?* 

UPOAT.KTN  / 1 */ TK : BLOCKS/ kN 

0111  LUTU  4 JO 

C NO 

0112  4 20  IK  (LOCK)  liOTU  4 1 5 

01  1 J UlOM:U(l(i<4l 

0114  1 Al Ib«4 ) =Nf NOT 

Oils  NtNPT*lB 

0 If IDtBUG)  PK1NT*,'  PHESEBVt  EL  AO  NOT  SET' 

C Ot  T N t XT  CONTACT 

01  IN  4 JO  le  = 1 * i On ) 

oil?  ooro  410 

C END  Of  BLOCK  SCAN 

Oil*  4 VO  CONTINUE 

0 lKU'EBUO)  Pf  BOO*  . f ALSK  . 

01 IV  500  CONTINUE 

C 

0120  NUPDATsNUPDATf 1 

0121  UELAC=. FALSE. 

0122  UN0ST=0 . 0 

01 2 J NETPNN 

C 

0124  JOOO  KOHMAT l JOX , 2BM  PK1KT  CONNECTION  KEOU I hf  D ) 

0125  J001  POKNATl  JO*  , J2N  NO  NONE  NE  NON  1 KOK  CONTACT  LIST) 
C 

012b  ENP 


PNOUNAn  SECTIONS 


N AMt 

SIZt 

ATTN  1 BOTES 

SCUL'fcil 

0042 Jb 

1 10  J 

Nk  , 1 , CON  , LCL 

$ W l)  A T A 

000004 

2 

K»  ,P. CON, LCL 

$ 1 0 A T A 

000140 

4 0 

Nu.D.CON.LCL 

$ V Atf$ 

0002J4 

?* 

K» .P.CON.LCL 

t TEMPS 

000022 

V 

N N ,0, CON, LCL 

.$$$*. 

04  ?0  40 

100  00 

Nk  , l',OVN,LBL 

C BLOCK 

0 0 0 4 B 0 

152 

K»  , P.OYN.CBL 

TOTAL  sf’ACt  ALLOCATEP  i 054400  I1JV2 
OPPAT.OniPDAT 


PALt  4 


J 
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1 UR  T H AN  1V-PLUS  V02-U4G  17:41:5b  22-NAR-78  PAGE  1 

DUMP. UN  / 1 4/TH :bLOCKS/»R 

0001  SUBROUTINE  DUMP 

c 

C ROUTINE  TU  PK1N1  NEROR1  ALLOCATION  AND  CONTENTS  

C 

0002  lNCLODt  'CONN UN. PIN  1 

000  3 • CONNOR  A ( 50  00  ) 

0004  » D1NENSI ON  1A11) 

0005  * EQUIVALENCE  IA,1A) 

000b  INCLUDE  'CBLOCK.FTN' 

0007  » LOGICAL  luck 

0008  • LOGICAL  RFLAG , UP  LAG , El LAG 

0004  * REAL  LAME  1 , LANE  2 

0010  » CONNON  /CBLOCK/  HEO l 20 ) . NHLORN , NBOXES , N 1 , M2 , N 3 , N4 , NS , Nb , N 7 , 

» . NBLOKS, NCYC.NCYCLE.NENPT, RFLAG, UFLAG,EFLAG,TFRAC, 

• . TDEL,IB0XES,JB0XES,XL,XU,YL,YU,BS1ZE,SFACT,XSI2.E, 

• . YS1ZE,UDNAX,UN0ST,STIFN,STIFS,FR1C, BETA, BUT, ALPHB 

• . CON  1 ,CUN2 , ALPHA , NV ARB , NBH , 1BR , NPR , LAME  1 , LAME2 , 

• . G, CUN1B, CON 2B, GRAVX, GRAVY, L0C1,LQC 2, NUPD AT, YIELD, 

• . LOCK , LBLUCK 

C 

0011  IF  1 LOC 2 • EQ • 0 ) RETURN 

0012  mR1TEIb,2000) 

0013  «RITE t b , 2005 ) N 1 , N 2 , N 3 , N4 , NS , Nb , N7 , NBLOKS , NCYC , N ENPT , NC YCLE 

0014  If ILOC2.LT.O)  GOTO  100 

C DUMP  CONSECUTIVE  NENORY  LOCATIONS  

0015  MRlTElb, 2004) 

001b  I2=( CLOC1-1 )/10)»10 

0017  10  11=1241 

0018  12=11*4 

0014  ■RITE(b,2O01)  l 1A  1 1 ) , 1 = 1 1 , 12 ) , 1 2 

0020  1FI 12.LT.LOC2)  GOTO  10 

0021  GOTO  500 
C 

C OUNP  BY  BOX 

0022  100  MRlTElb , 2002) 

0023  DO  120  NBOX= 1 , NBOXES 

0024  1 3 = I A l M 3 ♦ N BOX " 1 ) 

C ANY  NONE  ENTRIES  ? 

0025  110  1FU3.EU.O)  GOTO  120 

C NO,  PRINT  BLOCK, CORNER  

002b  nRlTEtb, 20081  NBOX , I A 1 1 3 ♦ 1 ) , 1 A l 1 3 ) 

0027  13=lAlI3*2) 

0028  GOTO  110 

0024  120  CONTINUE 

C CONTENTS  Of  EACH  BLOCK 

0030  *RlTElb,200b) 

0031  DO  130  NB= l , NBLOKS 

0032  IE=1A(NB) 

0033  IL=1F*NVARB-1*3»1AI IF*1) 

0034  MR 1TE ( b , 2003  ) NB  , 1 A 1 1 F ) , 1 A 1 1 F*  1 ) , l A U ) , 1* IF* 2 . IL ) 

0035  130  CONTINUE 

C DUMP  CONTACT  DAI  A 

003b  1FIN5.EO.O)  GOTO  500 

0037  MRITE(b,2007) 

0038  DO  150  NB=1, NBLOKS 

0034  Jb=M5*NB- 1 


w 


307 


TT  ^ 


h i .-HLus  1 7 : -t  l : 56  ak-7h  fall  7 


. * i ! . t r 

1 4 / T R : b l . > C h 5 . * h 

00  40 

1 40 

lb  = 1 A ( Jb ) 

00  4 1 

IF  1 1 6 . Fl) . 0 ) Oulu  150 

0042 

« H 1 1 F 1 6 , 7 0 0 A ) NH.lIAtl), 1=16, 16*4), 

lAl  1 ) , 1=16*5, 16*12) 

On  A 1 

J t>  - 1 b ♦ 4 

00  4 4 

GOlu  140 

00  4 5 

1 50 

C U N 1 I N 0 t 

00  4b 

500 

C 

"Kill  1 6,  7000 ) 

on  A 1 

Kt  I UKN 

00  4 b 

2000 

t UK*A  r l 1 X , 1 30 [in- ) ) 

00  4^ 

200  1 

formatc lx, 10U17, le) 

ooao 

2002 

FORMAT  1 10X , 3M60X , 7X , 5RBL0CK , 6A , 6 M C l ) K N F H ) 

00*3  1 

700  3 

FUKMAT(/1X, 313, 1P1 1 F 1 0 . 2 / 1 1 OX , 1F1 1 F 1 0 • 7)  ) 

0057 

2004 

FORMAT  C/1X.6110/1X, 1FRF10.7) 

005  J 

2005 

FUK  " A T C 9 X , 2 HM  1 , b X , 2H  » 2 , 0 X , 2 H M 3 , 8 X , 2 HM 4 , b A , 2 HM  5 , 

« X , 

7 H M 6 , 

ax , 2H47 , 4 X , eHNRLOKS, 6X , 4HNC*C,5X,5HNFMPT 
IX, 1 1 I 10) 

, 4 X 

, 6HNCYCLF/ 

005A 

7006 

1 IKHA1T11M  FLOCK  DATA, 101 1H-)Z1X,VH  NB  IF  NC,6X 

. 7mXC , 6X , 7HXC , 

bX,  4 H XDUT  , b X , 4H YDOT , bX , 4HTD01 , bX , 4H* ASS , 
7X, 3HM01 , 5X / 5HXFSUM, 5X  , 5 HU' SOM , bX , 4HMSUM 

, bX 

, 4 HLl)  1 1 

/ leX,AHtl’17,6X  ,4HLP71,6X,AhFl  77,0X,AHSIll 

, b X 

, ANSI  1 7 , 

bX,4HS121 ,6X,4HS122,bX,4HSAll ,bX,4HSA12, 
bX#4H5A22) 

b X , 

4MSA2  1 , 

0055 

7007 

FORMAT! 1 J H CUN  1 AC  T 0 A T A , 1 0 1 1 H - ) / b X , 3 hN Rt , 7 X , 3H PRF , 

7 X , 3 M N F t , 7 X , 

jnNPC , /X, 3hNMC,6X,4HL1NK/11)X, IMS, OX, 1HN, 
7 X , JMSI N , 7 X , JHCOS , 7 X , 3HXCP  » 7 X , 3MYCP ) 

bX , 

2HFN,bX,2HFS 

0056 

20ob 

FORMA  1 C IX , 31 1 7) 

0057 

20  J* 

f URMAT C 1 X , 301 1 M* ) , 10hV ALUFS  ARt  1 P.  OCTAL , 30 i 1 M*  ) ) 

005  a t.NL' 


F K . i K A w SLCTIONS 


N AWK 

51  1 

t 

ATTN  IBUTt.S 

SCODEl 

o 0 2 2 7 2 

b0  5 

P* . 1 , CON , LCL 

SPC  A 1 A 

0000  1 0 

4 

Hw  , D # CUN , LCL 

S 10  A l A 

00  102b 

2 b 7 

K*  r Or CUN , LCL 

AVARS 

000050 

20 

N«  , l) , CON  , LCL 

STtMPS 

0000  1 b 

7 

KW , D # C 0 N , LCL 

.$$$$. 

047040 

10000 

K* ,D,UVN,GBL 

CBl  CK 

00  0 4b0 

152 

K m , l> , U V N » G b L 

TU  f AL  SFACt  ALLULATU'  = 053136  11055 


NO  FFF  INSTRUCTIONS  GLNFRATFD 
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BPLUT.FTN  /I4/TR:BLOCKS/»R 


0001  SUBROUTINE  BPLOT 
C 

c PLOT  A SNAPShOT  OK  THE  GEOMETHY  — - 

C 

0002  INCLUDE  1 COMMON . FTN  1 

0003  » COMMON  A ( S000 ) 

0004  * DIMENSION  I A C 1 3 

0005  * EOU I VALENCE  (A,1A) 

0006  INCLUDE  'CBLOCK.FTN' 

0007  * LOGICAL  LUCK 

0008  * LOGICAL  RFLAG , Up  LAG , EFLAG 

0009  * REAL  LAME1  , LAML2 

0010  ♦ COMMON  /CBLOCK/  HED ( 20 ) , NBLOKM , NBOXES , M 1 , M2 , M3 , M4 , MS , Mb , M7 , 

* . NBLOKS,NCYC,MCYCLE,NEMPT,RFLAG,UFLAG,EFLAG,TFRAC, 

* . TDEL,lbOXES,JBOXES,XL,XU,YL,YU,BSIZE,SPACT,XSIZE, 

* . YS1ZE,UDHAX,UM0ST,STIFN,STIFS,FRIC, BETA, BUT, ALPHb, 

* . CUM ,C0N2 , ALPHA, NVARB,NbR, IbR ,NPR , LAME1 , LAME2, 

* . G, CONIB, CUN2B.GRAVX, GRAVY, LOCI, LUC2.NUPDAT, YIELD, 

* . LOCK , LBLOCK 

C 

0011  SCHEENMO.O 

0012  FACT=SCREEN/AMAX1 ( XS 1ZE , YSIZE ) 

c PLOT  EACH  BLOCK 

0013  DO  100  NB= 1 , NBLOKS 

0014  I2MACNB) 

0015  nC=IACI2»1) 

001b  XC=FACT»A(I2+2J 

0017  YC=FACT*A(12+3) 

C FIXED  ? 

0018  IFCIAU2)  .EQ.O)  GOTO  20 

c YES,  ALREADY  PLOTTED  ? 

0019  IF(IA(I2).GT.2)  GOTO  100 

C NO 

0020  IA(12)=IAtI2)+2 

0021  CALL  SYMBOL(XC,YC,0.2,1HF,0.0,1) 

0022  20  IC=I2+NVARB 

0023  X=FACT*A(1C) 

0024  Y = FACT*AUC*1  ) 

002b  CALL  PLOT ( X , Y , 3 1 

002b  DO  SO  NP=2,NC 

0027  IC=IC+3 

0028  X = P ACT*A 1 IC ) 

0029  Y=FACT»A( IC+1 ) 

0030  CALL  PLOT  1 X , Y , 2 ) 

0031  SO  CONTINUE 

0032  X = FACT*AU2  + NVARB) 

0033  Y=FACT*A(I2+NVARB+1 ) 

0034  CALL  PLOT ( X , Y , 2 ) 

C END  OF  BLOCK  LOOP 

0035  100  CONTINUE 

C 

003b  CALL  PLOT  10.0,0.0,3) 

C 

0037  HETURN 
C 

0038  END 


r 


►URTHAN  IV-BLUS  VIW-04U 
4 |Nl.MI.(  1’N 


17  i4J:i)0 


YY-MAK-7H 


RAol  l 


/ 1 4/TH  1 BLOCKS/  »H 


OoO  1 


SUBROUTINE  71NISH 


TIDY  UR  AND  STUB 


0001 
ooo « 

0004 

ooos 

00  0ft 
000  / 
000  H 
0000 
00  10 


INCLUDE  ’COMMON. R TN 1 
COMMON  A(SOOO) 

DIMENSION  1AU) 

► GUI  VALENCE  1A,1A) 

INCLUDE  ’CHLUCA.KTN' 

L0MCAL  LOCK 

LUg  U AL  HELAU.Ul  LAC,  El  LAO 
NEAL  LANK  1 , l.AMt  1 

COMMON  /CBUICH  / NED  l YO  ) , NBLOKM  , NBUXES.Ml  , N2  , M J,  M4  , MS,  Mo  , M7  , 

NBLurS,NCYl',NCYCLE,NENRT,KRLAC,UELAG.RELAG,  TKNAC, 
Tl)EL  , l HO AES,  JBOXE  S,  XL,  XU  , YL,  YU  , B S 17  E , SI  AM  , AS  1 It  , 
YS17E , UDMAA , UMUSl , ST11 N , STIR  S , ERIC , BETA , BDT  , ALRHB, 
CONI  ,CONY,ALRHA,NVARB,NBR,  1HR,NRR,LAME  1 , l.AMEY, 
G,C0N1B, CONYB, CRAVX ,GRAV  Y , LIJC  J , LUCY  , NURD AT , Y l ELD  , 
LUCK  , l, BLOCK 


00  I 1 

00  1 Y 


00  t t 
0014 
001b 

0 0 1 ft 

001  7 
00  1 w 

ooio 

00  YO 
00  Y1 


CALL  RLOTND 
MR  1 IE  1 ft  , YOOO  ) 


M C Y C L E .NtU’DAT 


1 ll.t  IE  NU  ERRORS 


; N R 1 T E KKSTAKT 

111  til, AG)  GOTO  100 
REMIND  1 

kRI  TE  ( 1 ) ( Hfc'l)  l 1 ) , I - 1 .l.BLUCK  ) 

NR1TE11)  IA11),1=1,M7) 

■ HID  ( h , Y001  ) 

100  STUB 

YOOO  EURMATl JOA, liH  TOTAL  CYCLES, 110/ 

. iOA.lJH  NO.  URDATES  ,110) 

Y001  EORMA  Tl 30A , 1YH  A RESTART  KILL  HAS  BEEN  MR1TTEN) 

END 


RRUGNAM  SECTIONS 


NAMt 

Silt 

SCUOt l 

000  Jo 4 

\U 

$ 1 0 A l A 

000  UO 

4 0 

$ V A « S 

000004 

i 

.$$$$. 

04/040  10000 

CHl.UCIv 

0 0 0 4M) 

1SY 

ATT K 1 BUTKS 

K»  , 1 , CUN , LCL 
H M ,D, CUN, LCL 
Rm ,D, CUN, LCL 
HW  , 1) , UV  K , GBL 
hk , D , U V H , GBL 


TOTAL  SRACE  ALLOCATED  = 0N0Y.10  10J1S 
NU  ERR  In.STHUCTIUNS  GENERATED 
1 1N1SH,0»KIN1SH 
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KUKTHAN  1V-HLUS  V02-04C  X 7:43:17  22- MAH-7B  HACt  1 

CHECK. Kl'N  2 14/  rH:HLUCKS/WH 


0001 


0002 
0002  ♦ 
0004  * 
000b  * 
000b 
0O07  • 
OOOH  • 
0004  • 
0010  * 
* 
* 
* 
* 
« 
* 


001  1 
0012 
ooi  2 


c 

c 

c 


c 


SUBKUUT1NE  CHECK 

MOMENTUM  AND  ENtKCY  CHECK 

INCLUDE  • COMMON  • KTN  * 

CUMMUN  AlbOOO) 

DIMENSION  1 A C 1 > 

EQUIVALENCE  (A,1A) 

INCLUllt  * CHLOCK  , ETN  ' 

LOCI  CAL  LUCA 

LUC  1 CAL  HELAC.UELAC,  EEL  AC 
HtAL  LAMtl , LAME  2 

COMMON  /CBLUCK/  HtD(20)  , N8L0KM  , NBOX  tS , M 1 ,M2,M2,M4,Mb,M6,M7, 

. NBLUKS,NCYC,MCYCLt,NEHHT,HELAO,UKLAG,tlLAG,TKHAC, 

. TOLL . 1 BOXES, J BOXES, XL, AU, YL, YU , BS1 ZE , SKACT . XSIZt, 

. YSIZE,UDMAX,UMUST,STlEN,STlKS,YHlC,HETA,bDT, ALPHB, 

. CONI  ,C0N2, ALPHA, N V AHB , NBH , 1 BN , NEK , LAMtl , LAME 2 , 

. G,CUN1B,C0N2B,CHAVX,GKAVY  , LUC  1 , L0C2 , NUPUAT , YIELD, 

. LUCK , LBLUCK 

WHITE (6, 2000) 

CO  TO  200 
XMUN=0.0 


IXMOM-O.Uj 
tHKUH  26 

» NO  hath  ru  THIS  STATtMtNT 


0014  Y MUM=0 . 0 

001b  TMOMiO.O 

0016  TAHM  = 0 .0 

0017  Xrt=0 . 0 

001H  YKE-0.0 

0014  T K t 5 0 . 0 

0020  DO  100  NHsl.NBLUKS 

0021  1 2 = 1 A ( NH ) 

0022  XMUM=XMOM*A< 12*1 1 )»Al I2+b) 

00  2 2 Y MUM  = Y MOM  + A ( 12fll)*A(l2*6) 

0024  TM0M=TM0M+A( I2*12)*A(12+7) 

002b  TAHM=TARM+A( 12+1 l)»(A(I2t2)»A(124b)-Al 1242) *A(12«b)) 

0026  XKE=XK£e0.5*A< 12+1 1 )*A(I2tb)»*2 

0027  YKt=YKt40.5*A(124ll)*A(I2*6)**2 

00 2 H TKt-TKK40.b*A(124l2)»A(1247)**2 

0024  WK I Tt l 6 , 200 1 ) XMUM  , Y MOM  , TMIIM  , TAKM  , XKE  , YKt , TKt 

0020  100  CONTINUt 
C 

0021  ESUM=XKttYKE4TKK 

0022  TSUM=TM0M4TAHM 

C 

0022  *N 11  El  6, 2 000)  XMOM, YMUM,TMUM,TAKM,TSUM,XKE, YKE,TKt,ESUM 

C 

0024  200  Hi-.IUHN 

C 

002b  2000  KUNMA1 ( 4H  MOMENT UM , 1 1 X , 1 HX , 1 1 X , 1 H Y , 2 X , 1 OHHOTAT 1 ON AL/ 

. 4X, lPbtl2.4// 

. 4H  KNKHCY  , 1 1 X , 1HX , 1 IX, 1HY ,2X, 1 OHHOTAT ION AL , 7X .bHIOTAL/ 


17 :4i:  17 


22-MAP-7B 


PAGE  2 


r OKTKAN  1V-PLUS  V02-04C 
CHECK. KIN  / I 4/TK1 BLOCKS/ MK 

. <*X,  1P4E12.4) 

001b  2001  EUKNATUX,  1P7E12.4) 

0017  1000  KUHMATllOX, 1 7HN0T  AVAILABLE  VET) 

C 

0010  END 


PNUOHAM  SECTIONS 


N AML 

SIZE 

ATTKIBUTES 

scout  1 

OOOb74 

222 

K W , 1 , CUN , LCL 

$ 1 OAT  A 

00017s 

bl 

KW , D , CON , LCL 

SVAK5 

0000S4 

22 

HN ,0, CON, LCL 

.$$$$. 

04  7040 

10000 

H w ,D,OVK,GHL 

C BLOCK 

0004b0 

1S2 

H N ,D,UVH,GBL 

TOTAL  SPACE  ALLOCATED  = OSObbb  104S9 
CHECK, OaCHECK 


r 
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Al’l’KNl'l  X XIV  I.ISTINU  OK  PKtXiHAM  IIIW 


MIKl'KAN  1V-PLU.S  V0^-04u 


14:  44:43 


^-mah-  ;h 


PALt  1 


hHMC  . ► I N 


000  1 


o o o i 
oou  j 

0004 
000b 
00  00 
ooo  i 


/ 14/TK:HLuCKS/mK 

PHOOKAM  NHMC 
C 

C KUilli  HI, (ICO  HOOKL 

C 

C --  OK  1 G IN  A L,  PKIIuKAM  HI  P.A.CUNOALL 

C TKANSLAII  ON  11X1  Cl  KOKrKAN  HY  P . J . HtKKSKONU 

C lNl'KOLHICl  ION  01  CKACMM,  HI  N . 0 . LAST  . MAKCH  1V7K 

C 

C 

C 

1NCLUU1  ' COMMON. FTN' 

COMMON  A 1 JOOO ) 

U IMfcNSlON  I A C 1 ) 

KUO  1 V Al.t  NCK  l A , 1 A ) 


INCl.UOK  'CHLOCK, 
COMMON  /CHliOCK/ 


K IN  1 

HKOt  20)  , Nbl.OKM  , Nium  S,  Ml  , M2,M3,M4, 

N BLOKS,  NCYC  , MCVCLK  ,N1  .MPT,  MHO,  KHLAO,  TFKAC, 

TOKL , 1 HUAKS, JUOAKS, X L , X U , Y L , Y U , »S I ZK  , .NMC1  , XS1  Zt , 
(Ma  , II  I'M  AX  , UMUS1  ,ST1KN ,STU  S,1 H1C . BC1 A , HOT, TMA* , 
CON  I ,C0«2,  ALPHA, CHAV X.LKAVY  , LOCI  , LOC  l , NUPl'AT  , NH 1 , 
NV  AKH, nKHAl, NPK , N1 MPIC , NKMPTU , NKMPTO , 1 KNU1 , LBLOCk 


oooh  • 

LOGICAL  KKLAvt 

0004 

V. 

DATA 

briKN,MUS, 

KK  1C  , tU.  l A/ /*  1 .0t8 

0010 

DA  T A 

CHAW  , A V A / 

-9. Hi, 0.0/ 

oOl  1 

DATA 

rt  4 , MCVCLK  , NODDA  1 , 1.  BLOCK  / 3000  , 

00  M 

DA  r A 

h ► LAC/ . h AL6K 

. / 

001  J 

DA  1 A 

H V AKH , N h KAu/ 14,10/ 

0014 

C 

CALL 

PLOTS Tt  . U^f 

•CM*  ) 

001b 

CALL 

SKTUPC 

00  1b 

10  CALL 

Ntxrc 

001  7 

CALL 

CVCLtC 

0 0 18 

CO  TO  10 

0019 

V. 

KND 

DKlkiHAM 

SKCTlUNfc 

N AMt. 

SUL 

x riHiBirrts 

tCOD£l 

0 0 0 0 / b 

31 

KM  , l , CUN.LCL 

$ 1*  D A T A 

0000  1 0 

4 

Km  .11,  CON  , LCL 

$ l i)  A r A 

0 0 0 0 1 0 

4 

KM ,0, CON, LCL 

.$$$$• 

0 / / J 4 0 b 000 

KM ,D,OVK , CHL 

CBLOCK 

0004-14  1 JH 

Km,L),IiVN,X>HL 

101 A L .SLACK  ALLOC  A I'M)  = 0JOI  02  Ml  I 


NO  KPP  l NS  1'KUC  1 IONS  LKNtKA TK U 


3 


10HTHAN  IV-*’LUN  VU2-04G  14114:48  2*7-MAk-78  PACt  i 

KBNc.rrN  /i4/th:blocks/«h 


0001 

0002 
OOOJ  * 
0004  » 

ooos  • 

000b 
O00  7 ♦ 


* 

000H  • 

000*7 

0010 

ooi  l 


001  2 
001  J 
0014 
001b 

001b 

001  7 
00  1 8 

0014 
00  20 
0021 

0022 

002  J 

0024 
00  2 b 


002b 

0027 

0028 
002*7 

0010 

0011 
0012 
001J 

0014 

001b 

001b 

0017 


C 


c 


C 


c 


c 


c 


c 


c 


c 


c 


subroutine  setupc 

1NCLU0K  'COMMON. KIN* 
common  A 1 3000 ) 

DIM  1. NS  ION  1 A 1 1 ) 
ton  1 V Al.tNCl.  l A , 1 A ) 

INCLUUt.  * CBLOCK.KTN * 

COMMON  / C B LOC  K / HLOl  20  ),  NIU.OKM,  NIUIXl  S,  M 1 , M2  , Ml  , M4  , 

. N BLOKS , NC VC , MCYCLt , NtMP 1 , KMO, tfLAG , TIN Ac , 

. TOLL  , lHUXtS,  JBUXtS.XL,  XU,  YL.  VU.HSUt . St  ACT , AS  1 21  , 

. V Slit , HUM AX , U MOST , ST  11 N , ST1 1 S , 1 K 1C . Bt  T A , HOT , TMA X , 

. CON  1 ,CON 2, ALPHA, GHAVX, CHAV  V , LUC  1 , LOC2  , NUUUAT  , NHI  , 

. NVANH.NPHAG.NPR,  NtMPTC  , M MPTU,  NtMPTc,  It  NP1  , LB  LOCH 

LOGICAL  tt  LAG 

U1  Ml  NS  ION  CAKUl  20  ) , NUHDl  10  ' 

Hvri.  uau  10) , riMi  io) 

UATA  HOMO  / 4HS  I AK  , 4HH1  ST  , 4HBLUC  , 4HDOX1  , 4HX1.1M  , 

, 4HYL1M,4H»»**,4H1 HAC , 4NOLNS , 4H1STK/ 


JOB-0 

CALL  UATtlPAY) 

CALL  1 lMtITIM) 

N K 1 T i: l b , 2000  ) UAV  , TIM 

N1AO  N1  XT  CAHl) 

10  HtADlb.1000)  CAKU 
CALL  T1M11TIM) 

■HITEtb, 2001 ) CARD , T 1 M 

UO  20  1-1,10 

lUCAHUCD.EU.NOKLHl))  GOTO  10 
20  CONTINUE 

■ HI Tt lb,  1000) 

GOTO  10 

10  11 11. GT. 2. AND. JOB. tO. 0)  GOTO  bO 
GOTO  1 1 10,  120, 110, 140, lbO, 

. lbO, *700,1  70,  1 80  , 1*70  ),  1 

bO  <KlTI.lt,  1001  ) 

GO  TO  1 0 

bO  nH 1 Tt ( b , 1002 ) 

GOTO  10 

START  01  NtM  KUN  

1 10  JOBS  1 

1)0  111  1*1,20 
111  Ht.OU)=CAHI)(  1 ) 

GOTO  10 

KtSTAKT  HUN 

1 20  JOBS 2 

NtADl  1 ) IHt.lH  1 ) , 1 = 1 ,1, BLOCK) 

Ht.AOll)  l Al  1 ) , 1*1  ,M4  ) 

■ H ITEl  b,  2001 ) MC V I’Ll 


f 
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[ 

► OH  THAN  1V-HLUS  YOZ-04U  141J4:4B  ZV-MAH-7B  BAGt  J 


kHMC.K TN  /14/TH:BLDCKS/mH 

00  J B RtTUNN 

C------------ — -----  MAXIMUM  MIMHK.K  UK  BLOCKS  --- 

00J4  1JO  UfcCUOK.lZO,  lOul  ,CAWO)  NBLUKM 

0040  GOTO  10 

C NUMHK.K  UK  BUXKS 

OU  4 1 MO  UK.CU0K.140,  1001  .CARD)  l HUXtS , JBUXtS , 1 BS1 ZK 

00 4Z  BS 1 ZK*KLUA T 1 1BS1ZK) 

0U4J  NbUXfcSslBUXfcS»JBI)AiS 

oo  a a oo  ru  10 

C HNOHLK.M  X-L1M1T5  

004  b ISO  DkCUDtl JO, 100Z.CAHU)  XL, XU 

004b  lKlXL.Ll. XU)  GUTU  10 

0041  rtMi‘  = XL 

00  4 B XL-XU 

0040  Alls  f KMK 

OObO  oUTU  10 

C 1’HUBLKM  V - LIMITS 

OObl  lbO  OKCOOtl JO, 1002, CARD)  YL,YU 

00b  Z IK  11L.L1.Y0)  GUTU  10 

OObJ  TK.MK-YL 

U0b4  Y L - YU 

OObb  YUsIKMH 

OObb  GUTU  10 

C KK ACTION  OK  CRITICAL  T1MKMKK 

00b7  1)0  UbCUUklZO, lOOZ.CAHO)  TKKAC 

00  bB  GUTU  10 

C — UtNSITY  UK  BLOCKS 

00b 0 100  OKCUOtlZO, lOOJ.UARO)  H HO 

OObO  GO  TO  10 

C MAXIMUM  TLNSILt  STHKNGTH  

OObl  MO  DKC00K1 20 , 1 00 J , CARD ) TMAX 

00  bZ  GO  ru  10 

c SKTUP  KlNlSHtl) 

00b J 000  CUN  TIN  UK 

C IN  1 1 1 Al,  1SK.  SUNK  VAR1ABLKS 

00  b 4 UMUSMO.O 

OObb  NBLUKS'O 

OObb  XSIZK-KLUATl  1 BOXK.S  ) * BS  1 ZK 

00b  1 YSlZK.  = Kl,UATl  JBUXLS)  *BSlV'.t 

OObH  XK'-XSlZK.VlXll-XL) 

OOBO  YK'sYSlZK/ IYU-YL) 

0070  SK  ACT- AM  1 N 1 l XK‘ , Y K ) 

0071  Ml  = l 

00  7 Z MZ  = M 1 ♦ l NK H AG 4 1 ) •NBLUKM 

oo  7 j m j = mz*nbuxk:s 

00)4  Nk.MK>Tu  = MJ 

00  lb  NK.MK>rc  = 0 

007b  NK.HK’IDsO 

00  7 7 1 MMZKNBUXK.S-1 

00 7 H DU  b MMZ,ll 

00  7 0 b 1A11)*0 

OOBO  mKITK 16, ZOOZ)  NBLUKM , HHU , TMAX , NBUXK S , XL , XU , Y L , Y U , BS 1 ZK ,SKACT 

00B1  HkTUNN 


OOBZ 
00  » J 


1000  KUHMAT 1 Z0A4 ) 

1001  KUHMATUOX,  J110) 


h UHTH AN  1V-RLU6  V 0 2 - 0 4 L 14:34:48  2*-MAK-7b  RAM.  4 

KBMC  .KIN  / l 4/  l'K  : BLOCKS/  nK 

00 H 4 100  2 KUHMAU 10X,bK10.0) 

008b  lOOi  KUKMATll0X,K!0.0) 

008b  2000  KUWMAT ( 30A , 2toH  KBMC  - H1L1U  BLOCK  MUM  l . , bb X # 1 0 A 1 , 1 X , 1 0 A 1 / 


. 3 0 A , 2 h N -- / ) 

008  7 2 0 01  KUKM  A 1 l 1 A , 4H* ♦♦  , 20A4,4H  ♦♦♦,32X,1UA1) 

0088  2002  KUKM A I ( / 30X , 2bH  MAXIMUM  NllMbKK  UK  BLOCKS, lb/ 

. 30X,2bH  DKNSITY  UK  uLUCKS  ,MOJ/ 

. 3 0 X , 2 b H TCNSILt  MHtNGlH  ,K10.2/ 

. 30X,2bh  MiMHKK  Ul  BUALS  ,1b/ 

30A,2bH  X-LIM1TS  ,2K10.2/ 

. 30X,2bH  Y LIMITS  , 2K10.2/ 

. 30 X , 2 SB  BS1ZK  , l 10. 2/ 

. 3 0 X , 2 b M SKACT  10.2) 


0089  2003  KUKM AT ( 30 X , 3 1 M K tS  T AK  T HUN.  CUHHKNT  CYCLKS  ..,110) 

0090  3000  KUKM All 28H  !i:  KKKOK  : ILLtoAL  COMMAND) 

0091  3001  KUKMAT134H  !il  IKKUK  : CUMMANl)  NUl  AVAILABLE) 

0092  3002  KUKM  AT l 4 b H III  tKKUK  : ' ST AKT ' UK  ' K tST  AR1 ' CARO  NUT  hUUND) 

C 

0 0 9 3 KNU 


KKOLR  AM  bKCl’IONS 


N AMK 

•s  1 i.t 

ATTRIBUTtS 

$CUDK 1 

o 0 i 5 .« •» 

bHb 

K* , 1 i CON , LCL 

SPDATA 

0 0 0 0 i f> 

1 1 

K*  , l),CUN  , LCL 

$ I DAT  A 

o o i id  » 

291 

KM.P,  CUN  | LCL 

$ V AKS 

oooiio 

84 

Kw , 0 i CON  , LCL 

S TLMRS 

0U0004 

2 

Kn i U , CON , LCL 

.$$$$• 

<Ji ) J40 

bOOO 

K*  , l),OVK,LBL 

C BLOCK 

u 0 0 4 i 4 

l 3 8 

K w , L),OVK,LHL 

fUT  All  M’ACfc  A I,  LUC  ATM) 


034130  7212 
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► OH  THAN  iV-PLUb  V02-04O  14:3b:09  29-*AN-7b  PAijL  b 

HbMC.ETN  / 14/ TK ! BLOCKS/ nH 


OOOl 

000  2 
OOOJ  • 
0004  • 
0 0 0 b • 
000b 

ooo ; • 


ooob  • 

0009 

0010 

oou 


00  1 2 

oou 

001  4 
001b 
00  1 b 

ooi ; 
oo  i w 

0019 
00  2 0 


002  1 
00  2 2 

00  2 3 
00  2 4 
002b 
002b 
0027 
00  2 8 

0029 

0030 

0031 

0032 
00  3 3 
0034 
003b 

00  3b 


SUBNOUTINt  NtXTC 
C 

INCLUOE  'COMMON .KIN* 

Common  auooo) 

DIMENSION  I A l 1 ) 

LOU  1 V Al.E.NC E.  I A , 1 A ) 

INCLUDE  ' C BLOCK , F TN ' 

COMMON  /CBLOCK/  HE  iH  20  ),  NHLUbM  , NbOXE  S , M 1 , M2  , M 3 , M«i  , 

. NbLDkS,NCIC,MCYCLE  , NtMPT  , HhO  , E E'L  Ao  , TE  H AC , 

. TUEL , 1HUXES, JHUXE  S#  XL, XU, YL, YU,HSlZE,SE  All , XSlZt , 

. YS12E:,UDMAX,UM0ST,ST1EN,ST1ES,KKK  , BE  T A , Bl'T  , TM  A X , 

. CUN  1 ,C0N2 , ALPHA, OHAVX , CHAV Y , LOCI # IOC  2 , NUPDAT, NB1 , 

. NYANH,NKHAt.,NPK, NEMPTC  , NE.MPTD  , NEMPTG  , lEM’l , LBLUCK 

LOGICAL  eKLAC 


DIMENSION  CAHL)(20)  , nOKD ( 20 ) # X l bO  ) ,Y(bO) 

BYTE  I IN (10) 

C 

DAI  A hOKU  /4HCNEA , 4HDE LE , 4HDUMP,4HCYCL,4HSTUP, 

. 4 HP LOT, 4 h • • • ♦ , 4 H H b E 1 , 4M1SE1 ,4 HZ  LIZ t 

. 4 HUH A V , 4HST1K , 4HDANP , 4HE  K 1C , 4H2EKO, 

. 4HZ2Z2,  4hZZZZ,4hZZ2Z,  4NZZZZ,  4H2ZZ2/ 

C 

C NLAO  NUT  CAMD 

1 0 HEADlb,1001)  CAMD 
CALL  11  MU  TIM) 

•KlTElb,  2000)  C A H D , T l M 
DO  20  1=1,20 

IK ICAKDI 1 ) . EQ.NUNLH  1 ) ) CuTU  30 
20  CONTI NUL 

ft  KIT  Lib,  3000) 

ooro  10 

C JUMP  TO  APPHOPK  1 ATt  CODE 

30  UuTO  l 100, lbo , 200 , 2bO  , 300 , 

. 3b0,400,4b0,b00, 10, 

. buO , bbO , 700 , 7bO , 800 , 

. 10,  10,  10,  10,  10),  1 

C 

40  *H1 ILlb,  3001  ) 

00  Tu  10 

C CHE  ATE  A NL*  BLOCK 

100  NbLUKSsNBLOKSt 1 

DECODE l 30 , 1 0 0 3 , C A H 0 ) NC,JE  IX 
CALI.  LlMl  riNV  AKBU*NC) 

KLADlb,  1002)  OKI)  0(1  ) , Is  |,  NO 
• HI  TM6, 2001  ) (X(1),Y(1),I  = 1,NC) 

NEMPT=NLMPTO 

1 2 = N L M P T 

N E.  M P l s 1 2 ♦ N V A H B 
1 A 1 NBLUKS ) = 1 2 
1AI  1 2M2)=NEMPT 
I A 1 12M3)=0 

IK  l JE'lX.Nt.O)  1 A l 1 2 ) = 1 
1A( 12* I )*NC 

L A HE.  A AND  CENTN01D  UE  THIS  BLOCK  --- 

AhlA=(X(1  )-XlNC)  )*(  Yi  I )*U«C)  ) 
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fOKTHAN  l.-PLUS  V02-U40  14:Jb:09  2¥-HAK-7B  PAGt  b 


"(MAC  . 

t IN 

/ 14/TK  SttLOCKS/nK 

OOj  1 

»C=C Al  1 I-AIXC)  )*U»  U )*H*iC)  )»IY(1  ).2.0*Y  INC ) )♦  J.O*Y  INC)**2) 

00  Jb 

XC= l > ( 1 ) “Y l NC ) ) • t ( X l 1 ) “ A INC  1 I • l A 1 1 ) ♦ 2 . U*X INC ) ) ♦ i • 0*X INC ) *• 2 ) 

00  J*7 

ou  lio  1=2 , nc 

0040 

AHt»:»KtA*(MU-Hl-l))*lHl)*Hl-l)) 

0041 

K*icM*(J)-*ii'i))«imi)-Mi-ii>*mi)7j.u*ui-m 

♦J.o*Y(l-l)**2) 

00  4 i 

AC  = AC.  Wll)-YU-l))»l(AU)-A(l-l>)*lAlI).2.U*AU-l)) 

♦j.o«A( 1-1 )•*;> 

00  4 J 

no 

Continue 

0044 

A«t  A =0. b*ANKA 

004b 

¥C=YC/lb.O»ANLA) 

004b 

AC=-XC/ lb.O»AHtA ) 

004  7 

YC=IYC-YL)*S1 ACT 

00  4 b 

XC=(XC-AL)*SYACT 

00  4*7 

AKtA  = AKtA»Sf  ACT».S7  AC  1 

OObO 

A(12.2)=XC 

oobl 

All J*  » 7 = ¥ C 

00b2 

A 1 1 2.7  ) =AKtA*WMO 

c* 

— 

oob  J 

0U  WO  1-1  ,NC 

00b4 

A(NLMP1 )=IAI 1)-XL>*SYACI-Ac 

OObb 

AlNtNPl.l)=(Yll)-YL)»SlACl-YC 

Ouse 

lAlNH4PT.2)=NfcMPT.J 

00b  7 

i 20 

Nt*y  r = Nt*Hi>4 

00  bd 

lAlNtNPT-1  ):IA(U«U) 

c* 

.... 

OOb^ 

KN01=0.0 

OObO 

IC=1AU2.12> 

OObl 

DO  liO  Nt*sl,NC 

00b  2 

1 Cl  - I A l 1 C ♦ 2 ) 

OOB  1 

AHtA  = AllC)*AUC.l>  ♦ IA11C1)-A11C))»(A11C1.1).AUC.1)) 

- AUCI  )*A(  IC1  .1  ) 

OOB4 

AKtA  = o . b* AHt A 

OObb 

1 CMC  = A UC  )*»2.AUC.1)**2.AUC1)»»2.AIIC1.1)»*2 

. .A11C)4A11C1).A11C.1)*AHC1.1) 

OOBb 

KNUl=KMUl.AKtA»rtNP/b.O 

0067 

1 JO 

1C=1C1 

OOBB 

Ai  12*H)xkMi)1»KH0 

006*7 

.KIT  LIB, 2002)  AU2.2),A112.J),AU2.7),AU2.») 

C- 

.... 

0070 

1C=1AU2.12) 

007  1 

DU  140  1=1, NC 

007; 

A11C)  = A(  10.AC12.2) 

007  J 

AUCI  UAIIC.1  LA112.  J) 

0074 

140 

1C  = 1A(1C2) 

007b 

NLNP  rG  = NfcHPT 

007b 

GOTO  10 

c- 

0077 

ISO 

Coro  40 

c- 

... 

0070 

200 

DtCODtl JO, 100J.CAKO)  LOCI , LUC  2 

007*7 

n 1 LOC 2 . NL • 0 ) GOTO  220 

00  HO 

LUC 2= LOCI 

oo  d i 

LOC 1=1 

1 
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KBNC.7 TN  / 14  / tN  7 BLOCKS/ . h 


oOtf  2 

.WO 

CALL  OUHFC 

ooh  i 

fcOTU  10 

c ■ 

s*0  H 4 

2*0 

0 t coot  l 2 0 , 1 00  3 , C AHO ) NO  C 

ooh* 

i » I ««.  u'Lt.st  .o)  u>  ru  ;ho 

c ■ 

— 

0 0 H ft 

TOtL= 1 ,0t 20 

00 V 7 

011  2 ft 0 Nft  1 = 1 , NbLOKS 

0 0 8 H 

i 2 - 1 A l N ft  1 ) 

000  * 

r N - 2 . 0 4SUN  riAll2»7).MlM«) 

0 0*0 

00*  1 

1 OtLsAMl n 1 i TOt L , IN , 1 * ) 

00*2 

2ftO 

CutiUhUt 

00*3 

rot  L-  lOtL* 1 t MAC 

UOAA 

• hilt  l ft , 300* ) 1‘Ot  L 

0 0 * * 

bo r-ht  i a rot l 

Oo*r> 

CON l - 1 . 0 - A l Oh A* lot  L'  2.0 

00 * 7 

CUN  2=1 .0/ l 1 . O^ALON A 4T0t  1/ 2.0) 

C* 

----- 

OU*H 

DO  J U'  Kt<  1 - l , NKUIK.N 

0 0 *4  *4 

CALL  tUUC 

0 1 0 0 

2 7 0 

Cl'Kl  INUt 

0101 

2 ft  0 

Kt  10 HN 

V.  * 

----- 

010  2 

300 

v.  ALL  t 1 N 1*H 

v * 

010  3 

3*0 

CALL  hOLUtC 

0 10  4 

c 1 1 r i • io 

t* 

010* 

400 

CALL  SiTuPC 

0 1 0 ft 

vA.lt  0 10 

C * 

010  7 

4*0 

ot.cuot  l 30  , 1004,  CAKO  ) 1 AUK  , t Al 

01  OH 

It  l lAOtf.lt’  .O.UK.  lAOK.v.l  .**4)  v.UTl  4H0 

0 10* 

A v 1 A OH  1 = V Al 

ol  10 

uUTU  10 

0111 

4 HO 

.H  1 It  l 0 , AOlW  I 

oi  i ; 

viuro  io 

V.  " 

• 

0113 

*00 

OtCUOt  V 30,  too  3 .CAKO  1 lAl'tf  , 1VAL 

0114 

II  I 1 Al'h  . Lt  . 0 . OK  . 1 Al'N  . 1. 1 . X 1 ) k.OlC  AMI 

on* 

1 A l 1 AOK  1 = 1 V Al 

0 11ft 

i»UTU  10 

0 ■ 



0117 

ftOO 

Ot  COOt  l 30, 10  0*,CAtfOl  v»  K A V 1 . G M A V X 

Ol  1 H 

ulltu  10 

C* 

----- 

Oil* 

ft*0 

OtCuOt  i 3o  , 1 00*  , v A HO  1 MitN.Mlth 

OUO 

v*U  VU  10 

C* 

----- 

01  2 1 

700 

UtCl'Ot  1*0,  1 00ft  , CAKO  ) t K A C , t K t 0 , 1 ► 1 , It  2 

0122 

0 1 2 - ft  . 0 • A r A N v 1 . 0 ) 

oi ; j 

Ai.t’M  AH’  1 2 *t  h AC  *t  KtU 

o l 2 4 

Ot  l A-t  KAv  l 0 l 2*t  Kt  vJ  1 

012* 

l til  t 1 • LvJ • 0 ) liu  ro  720 

0 lift 

A L t’  H A = 0 . 0 

-Jt-'-Mwf.  **•*-', 
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POKTKAN  lV-PLUS  VU2-04G  14:3b:uO  2*-MAK-7b 

KBMC.P1N  / 14/ iHIbLUCKS/MK 


0127 
J12K 
Ul  2 0 
0 1 30 

0 1 3 1 

01  32 
0133 

01  34 
o 1 »b 
0 13b 

013  7 

0 1 3b 

01  3*3 
01  40 

0141 
0 142 

014  3 

0 144 
014b 

01  4t* 
014  7 
01  4e* 
01  4* 
OlbO 
01  *>1 
0 1 *»  2 
0 1 b 3 
0 1 b4 
Olbb 

o 1 bo 


. «K 1 Tb l b , 300  3) 

7 20  U'UU.tU.O)  GO  TO  10 

hl  r a = o. o 

mKI Tti 6 , 3004  ) 
oU  10  10 

C t H 1CT  ION  COtKHCltNT 

7bO  OtCUDtl20, lOOb,CAKD)  tKlC 

oOlU  10 

C-- ZLfW  ALL  VtLOClTltS 

HOC  Du  »2o  NB=1,NHLUK> 

12=1 AINH) 

4( I 2^4  > =0.0 
Av 1 2«b ) =0 . 0 
A( i 2 «b  ) =0 . 0 
H 2 0 CUftl IftUL 
GOTO  10 
C 

1001  H)hMAU20A41 

1002  frONMAllbPlO.O) 

1 0 o 3 r uh**Al  [ 10%,  2110) 

100  4 t’UNfAri  10A,  I 10,  MO  .01 

100b  r UKUAl  \ 10A,2H0.0) 

1 u 0 b r'  1 1 H M A 1 1 1 OX,  2710.0,2110) 

2000  PUKM  A 1 l l A , 4m#*«  ,20A4,4H  ♦ ♦ ♦ , 3 2 A , 1 0 A 1 ) 

2001  r'UHMA  T l 1 % , 4 l 1 H l , t 12.4,  lh,  , 1 1 2 . 4 , 3H  ) )) 

2002  t U«M  A 1 l 1 Hh  AC,  YC,MAS5,KMUl  : , IP  4 f,  1 2 . 3 ) 

3000  t'OK*A  1 l 20H  111  tHNUK  : ILLEGAL  COMMAND) 

3001  t un  * a r i 34  m lnkuk  : command  nut  availabld 

3002  ► OH  M A 1 l 3 3M  111  tKKOR  I ADDKCSS  UUT  U*  hANv.,t) 

3 0 o 3 PuKMATUOX  , 20MMAbS  DAMPING  ILKM  Ml  TO  ZLK  0) 

JOOb  tONMAll A/ , 30A, 1 7h  TI*t  INChtMtM  =,lPtl2.4) 

3004  PuHMA  U 10X  , 34H51  U KNtS5  DAMPING  Tth*  Sfc  1 TO  2-tKU  ) 

v. 

LNL> 


PKUGKArf 

btc  mons 

N AMt 

SI  Zl 

ATTKlhUltS 

$COl)t  1 

00b  3 1 4 

1 3b2 

, 1 , CUN , LCL 

$ P D A T A 

OOOOSt> 

23 

Km , D , CON , LCL 

$ I 0 A T A 

O00b4b 

1 70 

K»  , D , C 0 N , LCL 

$ V AKS 

001232 

333 

KM ,D  f CUN , LCL 

S TbMPvS 

000030 

12 

Km ,0, CON, LCL 

. SSSS  . 

02  7340 

bOoO 

KM  , D,OVK  , v..HL 

OH LOCK 

000424 

1 3b 

K» , D , OV  N , GHL 

rOlAL  S P A C L ALLOCATED  = 03740b  H0b7 


PAGt  b 
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►'OUTRAN 
KBMC . ► IN 

0001 


0002 

0003  • 

0004  • 
000b  • 

000b 
0007  » 


0008  • 

000  V 

0010 

0011 

0012 

0013 

0014 
001b 

001  b 

0017 

0018 

0019 

0020 
0021 

0022 

0023 

0024 
002b 

002b 

0027 

0028 

0029 

0030 

0031 

0032 

0033 

0034 
003b 
003b 

0037 

0038 

0039 

0040 
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/ 14/ IK : BLOCKS/ »R 

SUBROUTINE  BOXC 
C 

C -------- ROUTINE  TO  BOX  BLOCKS  

C 

INCLUDE  ' COMMON • E TN  ' 

COMMON  A l 3000  ) 

DIMENSION  1 A ( 1 ) 

KOol V ALENCE  t A , 1 A ) 

INCLUDE  ' C BLOCK  . ETN  ' 

COMMON  / CBLOCK/  HEDl 20) ,NBLUKM,NBOXES, Ml , M2, M3, M4, 

. NBLUKS,NCYC,MCYCLE,NEMPT,RHO,Et  LAG, Tt RAC, 

. TOLL  , 1 BOXES, J BOXES, XL, XU , Y L , Y U , BSI ZE , St  ACT , XS1 ZE , 

. 1S1ZE,UPMAX,  UMOST  , ST1FN , STIES , t K 1C , BET A , BDT , TM AX  , 

. CONI  ,C0N2 , ALPHA, GR A VX,GRAVY , LOCI  , LUC  2 , NUPl)  AT  , NB  1 , 

. NVARB,NtRAG,NPR,NEMPTC,NEMPTD,NEMPTG, 1END1 , LBLOCK 

LOGICAL  LAG 
DATA  TuL/ 1.0/ 

C 

12=1ACNB1 ) 

NC=I Al 1241) 

C- DETERM  INC  CORNER  COORD  1 NATES  — 

1 END  1 = I A t 12+12) 

X 1 = A l 1 END 1 ) 

Y l = A ( I END1 ♦ 1 ) 
lENU2=lAl  1CND1+2) 

X 2 = A l 1 END2  ) 
i 2 = A( 1 E N 0 2 + 1 ) 

XSTeP=1 .0 

ystep=i  .o 

NP  = 0 
1 2N  = 0 

C- START  BOXING 

ISO  N P = N P ♦ 1 
NS=1 

xtol=o.o 

Y TOL  = 0 . 0 


C 

c 


c 


c 


DElEKMlNE  SCANNING  DIRECTION  

It ( AbS(X2-Xl ) .GT. ABS( Y2-Y 1 ) ) NS=0 

DETERMINE  X AND  1 INCREMENTS  --- 

1ECX1.GT.X2)  XSTEP=-XSlEP 
It ( Y 1.GT.Y2)  YSTEP=-)STEP 

DETERMINE  tolerances  — 

IrtNS.EO.O)  xtol=tol*xstep 

lEtNS.EO.l)  YTOL=TOL*YSTEP 

-------- — ----  DETERMINE  LIMITS  OK  EDGE  

1 BOX 1 = M 1 NO ( lEIXt (X1-XTUL)/BS1ZL)+1 , 1 BOXES) 
JbOX1-M1no( It lXttY 1-YTOL)/ BS1 ZE ) , J BOXES- 1 ) 
lhUXN  = Ml NO ( 1 El  X ( (X2eXT0L)/BSIZE)  + 1 , 1 BOXES) 

JBOXN  = MlNOt It  IX l IY2  + YT0D/BSIZE) ,JBOXtS-l) 

NbUX 1 - J HO X 1 * 1 BOX ES+ 1 BOX  1 
NBUXN=JBOXN* 1B0XES4 1B0XN 
..............  Bux  Pu INTERS  — 

I21=M2*NHUX1-1 
122=M2+NB0XN-1 
lEtl2N.EO.I22)  GO  10  7 bO 
1 2N  = 0 


r 
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0041 

00  4 2 

0043 

0044 

004b 

0040 

0047 

004d 

0049 


OObO 

oobi 

00b2 
00  b 3 
00b4 
OObb 
OObo 
oOb  7 
oObH 
00  b9 
OOoO 


0001 

0002 
0003 

0 0 O 4 
OOob 

0000 
000  7 
OOod 
00b9 
00  7 0 

oo ; i 

0072 

0073 

0074 
007b 

00  7 o 

0077 

007d 

0079 


'GO  10  4bO 

C DETERMINE  DIRECTION  OF  bOX  INCREMENT  

200  IFC 1BUX1 .EQ. IBOXN)  GO  TO  ObO 
lf'C JBUX1 ,L0. JBOXN)  GU  TU  700 
IFC 12N.EG.0)  GO  TO  210 
IFCNS.EO.O)  GO  TU  bSO 
GU  TU  700 

C SET  UR  E0UAT1UN  OF  THE  LINE 

210  TEMP1=C *2-* 1 )/ CX2-X1  ) 

TEKP2=Y1-X1* TEMPI 
IFCNS.EO.O)  GU  Tu  2bO 

C DETERMINE  COORDINATES  Of  INTERSECTION 

C WITH  bUX  GRID  - — 

YN=FLUATC JB0X1 )*BS1ZE 
1FC11.GT.Y2)  YN=YN*bSIZE 
GU  TU  300 

2 bO  XN=FLUA1 C IB0X1-1 ) *BSIZE 
HCX1.GT.X2)  AN  = XN-*BSlZt 
300  IFCNS.EO.O)  GU  TU  3bO 
YN  = YN-*YS1EP*BS1ZE 
XN=CYN-TEMP2)/ TEMPI 
GU  1U  400 

3bO  XN=XN*XSTEP*BS \ Zt 
Y N=TEMP 1 * XN* rtMP2 

C DETERMINE  The  BOX  IN  WHICH  THE 

C INTERSECTION  OCCURS  

400  JbOXN  = MINOC If  IX l C Y N ♦ Y TOL ) / BS I ZE ) ,JbUXES-l) 

IBOXN  = M1NOC  1FIXC  C XN  + Al'UL) /BSIZE  ) *1  , 1 BOXES) 
NbOXN=JBUXN*lbOXES*lHUAN 

C SET  BUX  POINTER 

12N=M2*NBOXN-l 

gu  ro  200 

C IS  BLOCK  ALREADY  ENTERED  ? 

4 bO  IFC1AC12D.E0.0)  GO  TO  bbO 
123  = 1 AC 121  ) 

bOO  IFC ABSC 1 A ( 123) ) .EG.NB1 ) GO  TO  bOO 
IFC 1AC 123*1 ) .EO. 0)  GO  TO  bbO 
123=1  AC  12  34-1  ) 

GO  TU  bOO 

C NU , PLACE  ENTRY  IN  EMPTY  'DOUBLES’  LIST 

bbO  CALL  EMPTYO 

1 ACNEMPT-fl  ) = 1 AC  121  ) 

1AC121 ) =NEMPT 

iacnempt)=-nbi 

C----- YES 

b 0 0 If C IAC 123) .EU.Nbl ) 1 A C 1 2 3 ) = - 1 A C 1 2 3 ) 

C IS  ALL  THE  EDGE  BOXED  ? 

IFC 121 .EG. I 22)  GO  TU  7 SO 
1FCI21.EG.12N)  GO  TO  300 

C NO,  INCREMENT  BOX  NUMBER 

oU  TO  200 

C INCREMENT  In  Y D1RECTIUN  

»bO  121=121*1 FIXCYSTEP)*! BOXES 
JBUX 1 = J BUX 1 ♦ 1 F I X C Y STEP ) 

GU  TU  4b0 

C INCREMENT  IN  X DIRECTION  --- 


^ ^ Aeik'V 


■r4 
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RBMC.ETN  /I4/TR:BLOCKS/MK 

700  I21=I21+IEIXl  XSTEP ) 

IBQX1=IB0X1+1FIX (XSTEP) 

GO  TO  450 

750  XSTEP=ABS(XSTEP) 

YSTEP=ABS( YSTEP) 

IS  THE  BLOCK  BOXED  ? 

IF(NP.EQ.NC)  GO  TO  800 

... NO,  BOX  NEXT  EDGE 

1 2 N = 1 2 2 
X 1 =A ( IENU2 ) 

Y1=A(IEND2+1) 

IEND2  = IAUEND2  + 2) 

X2=A(IEND2) 

Y2=A(I£ND2+1) 

GO  TO  150 

YES,  DELETE  OBSOLETE  ENTRIES  

8U0  CONTINUE 

CALL  DELENT 
RETURN 
END 


PROGRAM  SECTIONS 


NAME 

SIZE 

ATTRIBUTES 

SCODE1 

003302 

865 

RM  , I , CON , LCL 

S 1 DAT  A 

000046 

19 

RM  , D , CON , LCL 

SVARS 

000160 

56 

RW , D , CON , LCL 

STEMPS 

000004 

2 

RM , D , CON , LCL 

.$$$$. 

027340 

6000 

RM,D,OVR, GBL 

CBLOCK 

000424 

138 

RM , D , OVR , GBL 

TOTAL  SPACE  ALLOCATED  = 033520  7080 


008  3 

0084 

0085 

0086 

0087 

C 

0088 

C 

0089 

0090 

0091 

0092 

0093 

0094 

0095 

C 

0096 

0097 

0098 

0099 


14: 36! 31 


29-MAK-7H 
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► UH  THAN  1V-PLUS  V02-04*,. 

H BMC  . »■  I N / 1 4/  IK  : BLOCKS/  mK 


000  1 


000  2 
0 0 0 3 
0004 
000b 
0006 
000  1 


00  on 

0 0 0 o 
00  10 

001  1 
0012 

0013 

0014 
001b 

0016 

00  1 7 
0018 


OOP* 

0020 

0021 
0022 
00  2 3 


0024 
002b 
00  26 


C 

C 

C 


v. 


C 

C 


SUBROUTINE  CYCLLC 

UHIVKK  FOR  ITERATIONS  

INCLUDE  ' COMMON.  FTN' 

COMMON  A l 3000) 
l)  1 .ML  NS  1 ON  l All) 

EQUIVALENCE  l A , 1 A ) 

INCLUDE  'C BLOCK. F IN  ' 

COMMON  / C BLOCK  / MfcDl  20  ) , NBLUKM , NB0X1  6,  M 1 , M2  , M3  , M4  . 

. NBLUKS , NCYC , MCYCLfc. , NtMPl , RHU , tFL.AG , TFK  AC , 

. TOLL  , 1 BOXES,  JBOXES,  XL,  XU,  YL.  YU.BSIZE  .SFACT  , XS1ZE . 

. YSlZt.UDMAA.UMOST.STlI-  N , ST  1 FS . FR 1C . bFTA . HDT , TMAX , 

. CON  1 .CON 2, ALPHA .GRAVX .GRAVY , LOCI , LOC2 , NO PC AT ,NB1 » 

. NVAKH.NFRAC.NPR.NEMFTC.NFMPTD.NEMPTG.  I END  I . LBLOCK 

LOGICAL  FFLAG 

00  100  NCYCLt= 1 , NCYC 
MC YCLE  = MC  Y CLE* 1 

SCAN  ALL  BLOCKS  

Ul)MAX  = 0.0 

DO  20  NB  1 = 1 . Nhl.OKS 
IBK  = 1 A1 NB1  ) 

CALL  M0T10CI A( 1BK)  ) 

20  CONllNUE 

tXir  IK  NOTHING  MOVKO  

IFiUDMAx.EO.O)  RETURN 

CALL  FORI) 

DU  bO  NB 1 = l , NBLUKS 
bO  CALL  F OK DC 


C 

C CHKCK  KOK  CRACKING 

00  60  NB 1 = 1 , NBLUKS 
1 2- l A 1 NB 1 ) 

C FIXED  BLOCKS  NUT  CONSIDERED 

I F l 1 A ( I2).NK.O)  l»0  TO  60 
CALL  C FORCE 
0 0 CON T 1 NUt 
C 

C END  CYCLK  LOOP 

C 

100  CON  T I NOK 
C 

RETURN 

C 

END 


BKOGKAM 

StC  V IvinS 

NAMK 

sr/.t 

A TTh I HU  I KS 

SCOOK 1 

0006 1 4 

1 WH 

K M . 1 , CON , LCL 

$ IDA  1 A 

000006 

3 

Km , D , CON . LCL 

$ V AKS 

0 0 0 0 1 4 

6 

Km .D.CON , LCL 

$ temps 

0000 1 0 

4 

KM .D.CON , LCL 

324 


KUMTKAN  1V-PLUS 
H BMC  . t I N 


V 02-040 

/ 14/ TH: BLOCKS/ NK 


1 4 : )6:  )4 


29-MAH- 7B 


PALL  14 


UOOI  SUBKOUl'lNb  MOTIOC(B) 

C 

C LAW  UK  NOTION  KUK  A S1NULK  BLOCK 

C 

0002  INCLUDL  'COMMON. KTN' 

000)  ♦ COMMON  AiJOOO) 

0004  • 01MKNS10N  1 A 1 1 ) 

0005  ♦ LOU  1 V ALtNCK  1A,1A) 

0006  1NCLUDK.  * C BLOCK  . KTN  ' 

0007  ♦ COMMON  /CBLOCK/  HLDl 20 ) , NBLOKM , NBOXLS , M 1 , M2 , M i , M4 , 

♦ . NBLUKS, NC YC , MC YCLL , NLMPT , KHO, LKLAC « TKH AC , 

* . TOLL , 1B0XLS, JBUXtS, XL. XU , YL, 10 , BS1ZL, 67 AC1 , XSIZt . 

♦ . YSlZt,UDMAX,UMUST,STlKN,STlK6,KKIC,BLTA,BUT,TMAX, 

• . COM , COM2, ALPHA, OKAVX.CHAVY, LOCI, LOC 2 , NUPDAT , NB 1 , 

» . NVANB.N7  KAC,NPH,NKMPTC,NLMPTl),NKMPTC,  1LNU1  ,LBLOCK 

0000  * LOCI  CAL  LILAC 

0004  OIMLNSION  B(l) 

0010  LOU  1 V ALLNCL  ( K 1 X , JK 1 X ) , 1 A 1 C , 1 C ) , ( ANC , NC ) 

C 

0011  K 1 X = B ( 1 ) 

C IS  THIS  BLOCK  K1XLD  1 

0012  1KIJK1X.NL.0)  KKTUKN 

C NO 

C VLL0C1T1LS  KHOM  ACCLLLKA1 IONS 

00  1)  Bl S )=IBIS)»CUN1 ♦ (HI 107/Bl B JkGHAVX) *TDLL) *C0N2 

0014  B(6)w(B(6)*C0NlK(B(  1 1 ) /BIB) ♦CHAV Y)*TDLL)*CUN2 

00  IS  B(7  ) = (B(7  ) »C0N1  K(B(  12)/B(9)  ) *Tl)LL)*C0N2 

0016  B1 10)^0.0 

0017  0111)^0. 0 

00 1 B B( 127=0.0 

C UPOATL  BLOCK  CONNLBS  

C 

0019  A1C=B11J) 

0020  A NO  = B 1 2 ) 

C 

0021  00  SO  NPH=2,NC*1 

0022  1LN01=1C 

002)  1LND2MAI ILNU1+2) 

0024  XANM=A( 1LND2)-B( )) 

0025  Y AKM  = A ( 1 LNP2* 1 ) - B 1 4) 

0026  XDC*BIS)-B(7)*YAHM 

0027  YDC=B(6)kB17)*XAKM 

00 2 H OOMAXsAMAX l lUDMAX , ABM  XOC ) , ABS l Y OC ) ) 

0029  1 OX  = A l 1 LN0  2 ) 

00)0  1 0 Y = A l 1LN02K1 ) 

00)1  A 1 1 LN02  ) = A l 1LN02)«X0C*T0L1. 

00)2  Al  1 L Nl>  2 k 1 ) = A 1 1 LND2 ♦ 1 )+Y DC ATOLL 

0 i.s  MOV!  MI  NT  UHKATLK  THAN  1.0  UMTS  7 

00))  1KUBX.L0. 1K1X1 Al 1LN02) ) . AN0.1BY . LO . 1K1X1 Al 1LND2K1 ) ) ) CO  TO  SO 

C YLS.CALL  SCAN  ANl)  DLTLCT 

00 J4  CALL  SCAN  12  7 

00)S  1LNIU-1C 

00)6  CALL  DLTLCT 

C NO , UPPATL  NLXT  CUKNLK  

00)7  SO  1CMAOLNU1  + 2) 

0 H1C1 D BODY  D1SPLACLMK NTS 


' 1 


KOHTHAN  1V-PLUS  V0Z-04O  14:3bl3V  2V- MAH-7H  PALE  lb 

HBMC.K1N  /14/TH 1 BLOCKS/ NK 

003H  J)=Hl J)*Blb)*TUKL 

00  39  Hl4)=Bt4)*Blb)*T0EL 

* 

0040  KtTOKN 

C 

0041  l HO 


PKUUKAN  SECT10 Mb 


NAME 

SIZE 

ATTHIBUTtS 

scoot l 

Ool 1 SO 

311 

HW  , 1 .CUN.LCL 

SPOAT A 

000004 

2 

HW,0,CON,LCL 

$ LOATA 

000 030 

12 

H*,D,CLN,LCL 

SVAHS 

OOOOSO 

20 

KM,0,C0N,LCL 

STEMPS 

00000b 

3 

NW  , 0 .CON-  lCL 

.$$$$. 

0/ /J40 

bOOO 

Kh,0,UVH,CBL 

C BLOC A 

0004/4 

1 3H 

H» ,0,UVH,LBL 

TOTAL  SHALL  ALLOCATED  = 0312S4  b4«b 
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KBNC.KTN  / 1 4/  1 N : BLUCAS/NN 

000 1 SUbKOUT 1 N t FOKDC 

C 

C * FOKCt  DISPLACEMENT  LAN  EOK  SINGLE  CONTACT 

C 

0007  INCLUOt  * COMMON  , ETN  ' 

OOOi  • COMMON  A(IOOO) 

0004  • DIMENSION  1 A ( 1 ) 

000b  ♦ fc.vl‘J  L V ALENCE  (A.1A) 

000b  INCLUOt  * CBLOCN .FTN • 

0007  ♦ COHNON  /CbLUCK/  HtU l 20 ) , NHLOKM , NbUXKS , M 1 , M2 , N 1 . H4 , 

* . NbLUAS.NCYC.MCYCLE.NtMPT.NhO.EKLAG.TEHAC, 

* . TDEL,lB0XES,JHUXtS,XL,Xll,YL,IU,B6lZE,SKACT,XSlZt, 

* . YSIZE.UDMAX.UMOSr.STIKN, STIES, KKlC.bETA.BDT.TMAX, 

* . CONI ,CUN2, ALPHA. GKAVX, GRAVY .LOCI .L0C2 , NUPDAT.Nbl , 

* . NVAHb.NKRAC.NPK.NEMPTC.NtMPTU.NEMPTG, 1ENDI .LBLOCA 

0008  * LOGICAL  EELAG 

C 

C SCAN  CONTACT  LIST 

C 

0004  lBb=l At Nbl ) 

0010  10  JC 1 = 1 A ( I HE* 13) 

0011  JTEMP=1BE*11 

0017  70  lt(JCl.tO.O)  KtTHKN 

C KETONN  IK  NO  CONTACTS  OH  END  UK  LIST 

0011  1C1  = 1 A ( JC 1 } 

0014  Nb2=l A ( IC 1 t 1 ) 

001b  IKCNbl .LO.NB7)  GO  TO  10 

001b  IBC=1ACNH2) 

0017  GO  TO  40 

0018  10  JTEMP= JC l ♦ 1 

0014  JC1 -1 A l JC l ♦ 1 ) 

0070  GO  TO  70 
C 

c KtLATIVt  X AND  Y VtLOClTltS  ACKOSS  CONTACTS  

0071  40  XCC=A11C1+10)-A11BC*7) 

0077  YCC  = A(IC1«11)-AUBC*1) 

0071  XCt  = AUCl*10)-A(IBt>2) 

0074  YCe=A(ICl»l 1 )-AlI»E4l) 

007b  XDs(AUbC*4)-AllbC+b)*YCC)-lAllbt+4)-AllBE*b)»YCt) 

002b  YU=lAllHC+b)tAllHCEb)*XCC)-lAl 1 BE*b ) ♦ A 1 1 BEES ) *XCE ) 

C SHEAN  AND  NOKHAL  DISPLACtHtNT  I NCKKNtNTS  

0027  DUS=(XD*AC 1C1+4)»YD*A( IC1+B) )*T0tL 

0028  OUN=l Y0*AUC1E9)-XD*A( IC1E8) )*TDtL 

0024  A{1CIe4)=A(IC1e4)eDUS 

0010  A(lCl*5)cA( IClEbltDUN 

C ---- — NOKHAL  KORCt 

0011  DKN=-DUN*STIFN 

0012  AllClKb)*AllCl+b)*DKN 

c-~ test  kok  tension  — 

0011  iE(AtICI*6).GE.0.0)  GO  TO  bO 

0014  AlICl*b)=0.0 

0015  AllCl+7)=0.0 

001b  DN=0 . 0 

0011  OSiO.O 

C * 

0018  50  UfS  = DUS*STUS 


SHtAK  FURCt 


14: Jbjbj 


29-NAN-7B 


PAi.t  ] 7 


FUR  THAN  1V-PLU6  V L>  V - 0 4 o 
KBNC.FTN  / 1 4 / TK  : BLOCKS/  wR 


00  39 

0040 

0041 

0042 
004  J 
0044 

004b 

004b 

004  1 
0040 

0049 
OObO 
00b  1 

00S2 

OObJ 

00b4 


OObb 

OObb 


A(lCl+7)=AlICl+7)tDFS 
FKICF=FH1C»A( ICl*b) 

IFl ABS( At 1C1+7 ) ) .Lt.FRICF)  GO  Tu  bo 
A11C1+7 ) = S 1 GN l F R I CF . Al 1 C 1 ♦ 7 ) ) 

os=o.o 

GUTl)  70 


C DASHPUT  FOHCtS  

bO  OS=BDT*DFS 
70  DN=BDT*DFN 

C GLOBAL  CONTACT  FORCtS  

FTC=(A(lCl*7)»DS)*AtlCl+8)-(AllCl9b)*DN)*A(ICl*9) 
FXC*( At 1C1«7)*DS)*A( IC149)*( A UC 1 *b ) *DN ) • A l IC1 ♦« ) 

C ADD  CONTRIBUTION  TO  BLOCK  FORCtS  — 


A(IBC+9)=A(IBC*9)-FXC 
At IBCtlO)=A( IBC+10) -1  VC 

At 1BC*1 1 )=A( 1BC»1 1 )-lFVC*l A UC1  ♦ 1 0 ) -A  l IBC42  )) -FXC»  t AllCl+1 1) 
. -AtIBC*3))) 

AllBt+9)=Al IBt*9)+FXC 
AtlBt+10)=A( 1RL+10)+FYC 

At  1 Bt  1 1 1 ) = Al IBt* 1 1 ) ♦ tFYC*l  At  10*10  )-AtlBt*2) ) -FXC* l A l 1C1 ♦ l 1 ) 
. -AtlBt*J>)) 

C 

GO  TU  JO 
C 

LND 


PROGRAN  StCTlUNS 


N AMfc 

hltt 

ATTR lBUTtS 

SCUl)t  l 

001430 

J9b 

RR  , 1 .CON.LCL 

SIDATA 

OOOOOb 

3 

KH , D, CON.LCL 

$ V AKS 

000124 

42 

NR ,D, CON.LCL 

STtMPS 

000002 

1 

RR.D, CON.LCL 

.$$$$. 

027 J40 

bOOO 

HR .D.OVR.GBL 

CBLOCK 

000424 

1 38 

NR .D.OVR.GBL 

TOTAL  SPACt  ALLOCATtO 


OJlbbO  bbBO 


1 
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FORTRAN  1V-PLUS  V02-04G  14:37:1*  iV-MAN-7«  PAG t 18 

HBMC.FTN  / 14/TN:HLI)CKS/*R 

0001  SUBROUTINE  CfrORCE 

C 


C-- 

LOCATION  07  CONTACT  DATA  

0002 

INCLUDE  'COMMON 

.FTN' 

0001  * 

COMMON  A l 1000 ) 

0004  * 

DIMENSION  1 A ( 1 ) 

000b  * 

ECU  1 V ALLNCL  IA, 

1A) 

00  06 

INCLUDt  1 CBLOCK 

,7'TN  1 

0007  » 

COMMON  /C BLOCK/ 

HLD120) ,NBLOKM,NBOXLS,Ml ,M2,M1,M4, 

• 

NBLOKS,NCYC,HCYCLE,NFMPT,HMO, EFLAC,T7  HAC, 

• 

TDEL,1BOXES,JBOXES.XL,XU,YL,  YU , BS1 ZE , S7 ACT , X5I ZE , 

• 

YS1ZE,UDMAA(UNUST,STIFN,ST1FS,FH1C,BETA,BUT,THAX, 

* 

CONI ,CON2,ALPHA,GHAVX,CHAVY,LUC1,LOC2,NUPUAT,NH1 , 

• 

NVAHB,N7HAC,NPH,NLMPTC,NENPTD,NEMPTG,IEND1, LBLOCK 

ooo«  * 

LOC1CAL  LILAC 

0001 

12=1AINB1 ) 

0010 

NP  = 0 

C 

SCAN  CONTACT  LIST  

0011 

JC1-IAII2+11) 

0017 

NEMPT=NEMPTC-1 

c - - - - - 

NO  ENTHIES  OH  END  OF  LIST  ?--- 

0011 

100 

lFIJCt.EU.O)  CO 

TO  200 

0014 

1C1 s 1 A ( JC1 ) 

001b 

1F(IA(IC1*1).E0 

• N B 1 ) CO  TO  lbO 

c— -- 

c 

THL  COHNEH  07  ANOTHEH  BLOCK  

001b 

CALL  L1M1 Til) 

0017 

NLMPTINLMPT*  1 

001b 

1 A l NEMPT ) = 1 C 1 

0011 

NPsNP ♦ 1 

c— — 

LET  NEXT  CONTACT  P01NTEK  

0020 

lbO 

JC 1 - I A ( JC 1 ♦ l ) 

0021 

CO  TO  100 

c— — 

0022 

200 

1HNP.LT. 2)  CO 

TO  2b0 

0021 

CALL  CHACK 

0024 

2b0 

KETUHN 

002b 

LNl) 

PHOCHAM 

SECTIONS 

N AML 

SI 

it 

ATTN  1 HUTES 

ICUDEl 

0O0402 

121 

HN  , 1 , CON , LCL 

t Pl)A  I A 

000004 

2 

HN,D,CON,LCL 

SIDATA 

00000b 

3 

HN.D.CUN.LCL 

(VANS 

000020 

8 

HN ,D, CON, LCL 

.**»». 

02  7140 

bOOO 

HN,D,UVN,CBL 

C BLOCK 

000424 

1 lb 

HN ,D,OVH ,CHL 

TOTAL  SPACE  ALLOC  A TM'  2 010420  b2b0 

I 
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EOKIKAN  1V-PLUS  V02-04U  1 4 : 3 1 : 1 B 29-MAK-7B  PAGE  20 

KHMC.ErN  / i4/th:hlocks/mk 

0001  SUBKOUTINE  CKACK 

c 

C CKACK  CKITtKIUN 

C 

000  2 INCLUDE  ' COMMON. FTN' 

0003  ♦ COMMON  AliOOO) 

0004  » D 1 Mk  NS ION  1411) 

000b  » EQUIVALENCE  iA.IAl 

000b  INCLUDE  1 CBLOCK . FTN  1 

0007  * COMMON  /C BLOCK/  HED l 20 ) , NKLOKN , NHOXES , M 1 , M 2 , M3 , M4 , 

* . N BLOKS  , NCYC  , MC  YCLE  , N EM PT  , KHO, EELAL , TE'KAC  , 

• . TOEL,1BOXES,JBOXES,XL,XU,YL,YU,B51ZE,SFACT,XSIZE, 

« . Ys12E,UDMAA,UMOST.STIEN,ST1ES,Fk1C,BETA,BDT,TMAX, 

* . CONI , COM2 .ALPHA, GKAVX ,GKAVY , LOCI , LOC2 , NUPD AT , NB 1 , 

• . NVAHB,NEKAG,NPK,NEMPTC,NEMPTD,NEMPTG,1END1 .LBLOCK 

0 00 H * LOGICAL  Ek  LAG 

C 

0009  TENS 2= 0,0 

0010  NTEMP1 snEMPTGM 

0011  N TEMP2INEMPTG 

C CHECK  EACH  POSSIBLE  CKACK  

0012  1FN2=IA(NEMPTG) 

0013  Ik N3=IA(NEMPTG*l ) 

0014  EN2rA(lEN2Kb) 

C 

001b  100  IE11EN2.E0.1ENJ)  GO  TO  1 bO 

001b  1EI  1AUEN2*  1 ) .EG.  lAl  1ENJ  + 1 ) ) GO  TO  1 bO 

0017  FNj=AllFNJ«b) 

c CALCULATE  TENSILE  STKESS  

001 B 2=1AUFNJM0)-A(IFN2  + 1U>)**2 

. ♦( A( 1EN 3+1 1 )-A( IEN2E1 1 ) )**2 

0019  IE (Z. LI. 1.0)  GO  TO  lbO 

0020  TENS1 - (FN2+EN 3 ) /Z 

c e i no  maximum  tensile  stkess  — 

0021  TENS2=AMAX1 ( TENS  1 , TENS2 ) 

0022  1EITENS2.GT.TENS1 ) GO  TO  lbO 

C SET  P01NTEKS  TO  CONTACTS  CAUSING 

C MAXIMUM  TENSILE  STKESS  

0023  1 F 2 = 1 E N 2 

0024  1E3=IEN3 
C 

002b  lbO  NTEMPl-NTEMPl+1 

002b  IE  IN TEMPI .GT.NEMPT ) GO  TO  200 

0027  IEN3=1A(NTEMP1 ) 

002B  GU  TO  100 

C 

0029  200  NTEMP2=NTEMP2e1 

0030  1F(NTEMP2.GT.NEMPT)  GO  To  300 

0031  IFN2=1AINTEMP2> 

0032  IENJ=1A(NEMPTG) 

0033  E N 2 = A ( I E N 2 ♦ b ) 

0034  NTEMPIsNEMPTG 

003b  GO  TO  100 

C END  OF  CHECK 

C 

c 


L. 


IS  TENSILE  STKENGTH  EXCEEDED  l 


FORTRAN  1V-RLUS  V02-040  14:37:18 

KBMC  . F TN  /14/TK:BL0CKS/*R 


2V-MAK 


0036  3 00  IKTtNS2.LT.TMAA)  CO  TO  400 

C YES. INTRODUCE  CRACK  — 

0037  CALL  SRL1TI 1F2, IF3) 

C NO, RETURN 

00 id  400  RETURN 

003V  LNV 


RROtiRAM 

SECTIONS 

NAME 

SIZE 

SCOUE1 

000  f 30 

236 

S1UATA 

000014 

6 

$V  AMS 

OOOOS4 

22 

.ssss. 

027340 

6000 

C BLOCK 

000424 

138 

TOTAL  SR  AC  l ALLOC  ATtl)  = 


ATTRIBUTES 

RW  , 1 ,CON,LCL 
K w , D , CON , LCL 
KW  , L),CON  . LCL 
KM ,D,OVK. GBL 
KW  , D , UV  R , GBL 


031004  t>402 


► on  than 
hbmc.FIn 

uoox 


UOO  2 
0003  • 
OOu4  * 
OOOb  ♦ 
0006 
000'7  • 


0006  » 

0000 

ooio 


0011 

0012 

00  1 3 
0014 
001b 
001b 

001  7 
0016 
0010 
0020 
0021 
0022 

0023 

0024 

002b 


002u 
002  1 
0026 
0020 
0030 


0031 

0032 

0033 

0034 
003b 

0036 

0037 
0036 


1V-PLUS  V02-04G  14:37:31  20-KAK-76  PACE  22 

/14/TH:  13  LOCKS/  MR 

SUBROUTINE  SPLIT! IF2 , 1F3) 

C 

C* CHACK  1 NTHODUCED 

C 

INCLUDE  1 COMMON . F TN  * 

COMMON  A (3000) 

DIMENSION  1 A ( 1 ) 

EQUIVALENCE  (A,  I A ) 

INCLUDE  1 CBLUCK . FTN * 

COMMON  /CBLOCH / HEUl 20) , NBLOKM, NHOXES, Ml , M2 , M3 , M4 , 

. NrtLOKS.NCYC.MCYCLE.NEMPl , RHO , EFLAG , TPK AC , 

. TDEL,1HOXES,JF)OXES,XL,XU,  YL,YU,bSIZE,SFACT,XSIZE, 

. YS1ZE,UUMAX,UM0ST.ST1FN.ST1FS,FHIC,BETA,BDT,TNAX, 

. CONI ,CUN2 .ALPHA, CHAV  X, CHAV Y , LOCI ,L0C2, NUPDAT.NB1 , 

. NVARH,NFHA0,NPR,NEMPTC,NEMPTD,NEMPTG,IENU1  , LBLOCK 

LOGICAL  EFLAG 
C 

12=1A(NB1 ) 

NC 1 = l A ( 1 2*  1 ) 

C- SUPPKESS  CKAChS  100  CLOSE  TO 

C tXISTING  COHNEHS  

X 1 = A ! IF  2 + 10) 

X2=A!1F3*10) 

Y 1 = A ! IF2+ 1 1 ) 

Y2=A11F3+11) 

1P0INT=IAC12+12) 

00  10  1=1, NCI 
XDIF=X1-A(IPU1NT) 

Y DIF*  = Y 1 - A ! 1P01NT+1  ) 

Z2=X0IF*XD1F*YD1F*YD1F 
X01F=X2-A( 1P0IN1 ) 

Y01F=Y2-A( IP01NT+1 ) 

Z2=AMlNl (Z2,XD1F*XDIF+YD1F*YD1F) 

1FCZ2.LT. 4.0)  HETUHN 
10  IP01NT=IA(IPuINT+2) 

C 

»KITEC6,2001)  NB1 , XI  , Y 1 , X2, Y2 

C 

C 

Nt)LOHS  = NBLOKS+l 
IF  CNHL0HS.LT.M2)  GO  TO  20 
tfRlTE  C 6 , 3000  ) 

EFLAG= . TRUE. 

CALL  FINISH 
C 


C EDGES  INVOLVED  IN  CRACK  

20  NPlslAC IF2M ) 

NP2=IACIF3+1) 

C IS  NP 2 GHEATEH  THAN  NP1  ? 

IFCNP2.GT.NP1)  GO  TO  50 

C NO,  REARRANGE 

NTEMP=NP1 
NP1=NP2 
NP2=NTEMP 
NTEMP= 1 F 3 
I F 3 = I F 2 


FUHTWAN  1V-PLUS  V02-04G  14:37:31  24-KAN-78  PAGt  23 

KhMC  IN  / I 4/ Th : bLUCKS/ UK 

0034  iF2*NTtMP 

oO  40  bO  CUNTlNUfc 

C - --  --  --  --  --  --  --  --  --  I fcS  --- 
Oo  4 1 ILMDI-IAI 12*12) 

0042  DU  100  l=l,fcCl 

0043  lFINPl.fcU.l)  lC2*ItNDl 

0044  it INP2.FU. 1 ) lC3=ltNDl 

004b  Ifr'lNPl .Lt. I . AN0.NP2.Lt.  I ) GU  TO  110 

00  46  100  lfcNDl=  1 A(  lfcNUl*2) 

C- CKfcATfc  Mt.MUK  i t'UH  Ntt*  BLOCK  DATA 

004  / 1 10  NbN  = fchLOKS 

0048  CALL  Ll*lTlNVAHb*12) 

0044  1 Al NHN )=NF*PTG 

OObO  NL*PrG=NtWPrG*N  V AMH 

C BtTtKKINt  CUKNt.H  CUOKDiftATtS  Ot  Nt*  BLOCKS 

00  b 1 10  22-lAi 1 C 2 ♦ 2 ) 

00  b2  1C33=IA{ 1 C J ♦ 2 ) 

C ------------------  t UK  HLUCK  Nbl  - - - 

00b3  1 A 1 1C 2 + 2 )=NfcMPTo 

00b4  AlNLHPTG)sA( I F 2 ♦ 1 0 ) 

OObb  A l NtHPTG* l)=AllF2Ml) 

OObo  1 A l Nr *P l G*  2 ) -Nfr  NPTG*  3 

00b/  A(NLMPTG«3):A(  IF  3*10) 

00b8  Al6t*PTG*4)=Al  It  3*1  1 ) 

00b4  lAlNt*PlL*b)xl  Al  1C3*2) 

OObO  Nl*P fo=NtNP rG*e> 


C -------------------  FUK  HLUCK  NBN  

Out)  1 l Al  1C3^2  ) =NtMPTo 

0062  AiNtWPTG)*Al  0 3^10) 

0063  Alftfc.«Plo*l  )=AIU  3*1  1 ) 

0064  1 Alftfc.MPro*2)*NL»PrC*3 

006b  Al«lbrtPIb*3)=Al It  2+10) 

0066  AtftbMPTG+4)=AllF2Ml) 

0067  lAlNtaPTotb )=1C22 

00  6 8 fte.«PTL  = NFMfr>TG*6 

CK  L A T- 1 Ntw  BLOCK  OAT  A 

0064  NP=0 

0070  121-lAlNbl) 

00/1  lib  NP^NPM 

0072  NC=0 

0073  iLNUl-lAl  l <?  ♦ 1 2 ) 

C NUMbtK  Ct  CDHNLKb  l 

00  7 4 120  NCsnOl 

00/b  1LN01-1AC  1 1. NO  1 + 2 ) 

0076  1M  ltNDl  .tO.  lAi  12*12)  ) GU  TU  12b 

00/7  GU  TU  120 

00/8  12b  1A(12):0 

0074  IAU2*1)=NC 

C AH  FA  AND  CtNlKOll)  

0080  AHfc.  A = 0 . 0 

0081  XC-0.0 

0082  YC=0.0 

0083  ltNDl  = l AU2M/) 

0084  DU  130  l=l,NC 

008b  lLND2=lA(ltNDl*2) 

008b  AKtA=ANtA*( A 1 1 tNl)2  ) - A t IfclNDl ) ) * l A U t ND 2 ♦ 1 ) ♦ A l 1 FND 1 ♦ 1 ) ) 


FORTn A* 
&*c . t r *% 

0 08  7 

0089 

0090 
.091 
'092 
0093 

094 

009b 

009b 

0097 

009b 

0099 

0100 
101 
102 
K3 

0104 

010b 

^ 1 Ob 
.10  7 
108 
109 

1 1 1 
112 
0113 

Oils 
• lib 

0118 


12  1 
l 22 
i'  123 
0124 
012b 

0 1 2 b 
0121 
ul  2b 
012V 

0130 

01  31 


1V-PL  .«  \ 2-04  14  : 37  : 31  29-*AK-Jb  PACit  24 

14  Ik: wtuCbb  «k 

i « ♦ 1 Ai  UM'2  )-A  v I c M 1 ) )•  U Ai  ltND2M  )-A  . 11  1 ♦ 1 1 •<  AiltNU2^1 

♦ 2.  • A ( 1 1 Nl  1 ♦ 1 ) )43.0*Al Ifc.NDi*l)**2) 

V.  -Xi  UAilf-  2*\  -A  UH.  ltl  *UAlUMi)-Alltr.'  ! • AVltNL2) 

♦ 2 • t'  * A < lr.  A l *«.  » A 1 1 M»  1 ) ♦ ♦ 2 1 

le.N|)l  = ltNi’2 
l JO  CUM1NUL 

AKtA  = U. A 
1 » S I C - 1 C / l h . e*  * 4 K t A ) 

--XC / l b.O* AKfcA ) 
n:=<  H>lt)*SFACT 
\C  = l AC-  XL ) *Sf  ACT 
• hr  A=Aht  A*Sf  AC  I*iiF  - . I 
Ai 12«2)=XC 
A l 12*3) = Y C 
AiI2*7)aAKbA*tfb 
All2*4)=U,0 
A l 1 2 ♦ b ) = U . i 
A l 1 2+b ) =0 .0 
ACl2»9)=y.O 
A l 12MO)=O.0 
A V 1 2 ♦ 1 1 ) =0  * 0 

...  i.OCAL  • ci  i .» A I L b 

it\  1 = 1 All  2+1 2) 

140  l=t,*C 

A I Ic-.NDl  ) = (A(  lfcMl'l  )-\L)  *M  AC  T-\C 
MUtMiiti)  = (AUUii*n-u)*sFAa-i. 

14  UNCI  = l A l U S !♦,  J 

MO* t N T if  INtKTIA 

« *<01  = 0.0 
le.fcUl  = l AllM  2 
. lbO  1=1 . NC 


. « . lAllFNl'1^2) 

‘ 

♦Ai  1 1 N 0 1 ♦ 1 ) ) - A l It  M 2 • A ( 1 1 M‘  2 ♦ 1 ) 

A - r A - . S • APt  A 

r Mt  a A I 1 1 H i'  1 ) • • 2 ♦ A l ! 1 M 1 ♦ 1 ' • A l It  M2)  » * . ♦ Al  l Nl<  2 ♦ 1)  • * * 
. ♦ A i ItM  1 ’ * A l ltN.  2 1 ♦ A (UN.  1 ♦ 1 )*A(lLNl'2  + l) 

c-  • 1 - 1 « A K b A • T t •*  F r>. 

130  ic.Nil-lU«»U2 

A v li’»"  ) :n“  l *Km 


b Ai  Ktf  1NA  ItS 

ltNL'l  = IA(  I 2 4 12) 

Ibt  1=1 ,WC 

A l lKNOl  )=A(  IfcNL’l  )vA  i 1 2 *2  ) 

A 1 ItADl  * 1 ):»lUM  IMltAlLti) 
lo  1 1.  N 1=1A<1H*D1*2) 

IF  ( M P • fc.  0 « 2)  v.U  TO  18  0 
1 2 = 1 At  Mg* ) 
iAtl2*12)=!C22 
JU  XU  lib 

- - - - SI  C l.N  . J.> ING  ; r CRA  R 

180  l2l  = LAlNt)l  ) 

J 1 1 « V = I 2 1 ♦ I 1 


334 


KUKTKAn  lV-PLUb  V02-0 4b  14:37:31  2*-MA8-7b  PAUL  2b 

KHMC.FTN  /14/rK:bLOOi>/«K 


0132 

0133 
01  34 
013b 
0 13b 

0137 

0138 
013* 

0140 

0141 

0142 

0143 


0144 

014b 

014b 

0147 

0148 
014* 
OlbO 

0 1 b 1 

0 1 b 2 

01  b3 

0 1 b4 

01  bb 
o 1 bb 
o 1 b 7 

0 1 b8 

01b* 
0 1 bO 
0 1 b 1 

olb2 

0163 

0164 
0 1 6b 
0 1 bb 

0167 

0168 
016* 

0170 

0171 

0172 

0173 

0174 
017b 
017b 

0177 

0178 


JC1=I A( JTLMP) 

1*0  IFCJCl.KG.O)  GU  TU  200 
1 C 1 = 1 ACJC1 ) 

lKUCl.NL.lP2.AN0.lCl.Nt.lK3)  GUTU  l*b 
CALL  L)fcLCON(JTtMP) 

GUTU  1*8 
1 *b  JTLWP=JC1*1 
1*8  JC 1 = 1 A t JTLMP ) 

GUTU  1*0 

C KLAHKANGLMKNT  UK  CONTACT  DATA  

200  12N=lA(NbN) 

AT1= l A(1F2M0)-A(  IC2  ) )»A(D 2 + 9) 

. ♦lA(lK2*ll)-A(lC2M))»AlU2tb) 

X12=l A(lt'JMO)-AdCJ) )»A(U i + 9) 

. ♦(Al  IK 3M  1 )-A(  1C3*1 ) )*All Fi-M*) 

C 

JC 1 = 1 A ll 2 1 ♦ 1 3 ) 

JTKMPs 1 21+13 

210  IF(JCl.fcO.O)  GU  TO  700 
1C1=IA( JC1 ) 

1KUAC  IC  1 ♦ 3 ) .LO.NBl  ) GU  10  220 
1FUAUC1  + 1 ) . LT  . NP 1 ) GU  TO  600 
1FUAUC1  + 1 J.GT.NP2)  GU  TO  300 

C 

GU  1U  JbO 
C 

220  lF(lA(lClt2) .Lt.NPl ) GO  TO  600 
1FUAUC1  + 2)  .LL.NP2)  GU  TO  2b0 

C 

NP3  = NP2f  1 
NP4  = NPl-*3 

230  1FUAUC1>2)  .NL.NP3)  GO  TU  240 
1AUCU2)=NP4 
GO  TO  600 
240  NP3  = NP3U 
NP4=NP4*1 
GO  TU  230 
C 

2b0  NP3  = NPU1 
NP4=1 

260  1F(1A(ICW2)  .NK.NP3)  GO  TO  2 70 
1 A ( !Clt3)=NBN 
1 A l 1 C 1 ♦ 2 ) =NP4 
1AIJTLMP)=1AIJC1*1) 

IAlJCl+1 )=1A(12N*13) 

1 A ( I 2 N ♦ 1 3 ) = JC  1 
GU  TO  600 
270  NP3=NPJtl 
NP4=NP4^ 1 
GU  TU  2 60 
C 

300  NP3=NP2*1 
NP4=NP1*3 

310  lFll A( 1 C 1 ♦ 1 ) .NL.NP3  ' GU  TU  320 
I AC1C&  + 1 ) s N P4 
GU  TU  600 


r UN  THAN  1V-PLUS  V02-04G  14  : 37  : 31  29-*Ak-78 

KbMC.FTN  / I 4 / Tk : BLOCKS/ wk 

0 17  9 320  NP3  = NP3D 

0180  NP4=NP4*1 

0181  GU  TO  310 

C 

0182  3bO  IFlIAllCUD.tO.HIFlJ  GU  TU  380 

0183  IFCIAC1CWD.E0.NP2)  GO  TU  400 

0184  GU  10  bOO 

018b  380  XT=CACICWIQ)-ACIC2)  WACICW9) 

. ♦ CACICW11)-AC1C2*1))*ACICW8) 

0186  1KCXT.LT. XT1 ) GO  TO  600 

0187  1AC  1CW1  ) = IAl  12N*1  ) 

0188  IAC  JTLMP)  = 1AC  JCW1  ) 

0189  1ACJCW1)  = IAC12N+13) 

0190  IAC 1 2 N ♦ 1 3 ) = JC 1 

0191  GO  TU  oOO 
C 

0192  400  XT=CAC  ICW10WAC1C3)  WAC1CW9) 

. ♦ CACICWl  1 WACIC3M  ) WAC1CW8) 

0193  1KCAT.GT.XT2)  GU  TO  410 

0194  IAC  JrtMP)=lACJCWl) 

0196  IAC  ICWI)  = IA(I2NM  )-2 

0196  IAC JCltl )=1 AC I2Ntl 3) 

0197  IAC 12N+1 3 ) = JC 1 

0198  GU  TU  420 

0199  410  IAC  1C1  + 1 )=NPW2 

0200  420  GO  TU  600 


NP3  = NPW1 
NP4=1 

IFC1AC1CWD.NE.NP3)  GO  TU  b20 
1AC1CW1  )=NP4 
IACJTEMP)  = 1ACJC  W1  ) 

1ACJCW1  ) = IAC  I2N  + 13) 

1 A ( 1 2N+ 1 J ) = JC  1 
GU  TU  600 
NP3=NP3* 1 
6P4  = NP4 ♦ 1 
GO  TU  b 1 0 
JTtMP=JCWl 
JC1  = 1 AC  JC  Wl) 

GU  TU  210 

bUXlNG  UP  Nt*  BLOCKS 

NP  = 0 

TtMPsTDtL 
NP  = NP-f  1 
12=1 ACNB1 ) 

CALL  BOXC 

CHECK  TlMtsrtP  - — 

lN=2.0*CSQRTCAC12^7)/bTIKN) ) *TFK AC 
rS=2.0*C6G«TCA( 12*7) /ST IKS) WTKkAC 
iOtL  = AMlNl  ( 1 1)  t L , TN  , TS) 

1KCNP.G1.1)  GO  TU  720 

N1 tMpsNbl 

NBl =NBN 

GU  TU  710 

Nbl =NTKMP 


336 


i 


FORTRAN  1V-PLUS  Vu2-0 4U  14:37:31  29-MAR-7B  HAUL  27 

RBMC.FTN  /14/1K:BL0CKS/WH 

022B  I FIT DEL. EG. TEMP)  GO  TO  7S0 

0229  BOT=HUT»TEMP/TOEL 

0230  CON1=1.0-ALPHA»TUEL/2.0 

0231  CON2=1.0Z(1.0*ALPMA»1DEL/2.0) 

0232  WN1TM6.2000)  TDEL 

0233  7 SO  RETURN 

0234  2000  FURMAT(X/,3oX,20HNEW  TIME  INCREMENT  =,1PE12.4) 

023b  2001  FURMAT130X,SHBLUCK,IS,24H  HAS  CRACKED  AT  LOCATION, 

. 2E1  1 .4, 2X, 2E1 1 .4) 

0236  3000  FORMAT l 46H  ill  ERROR  : MAXIMUM  NUMBER  OV  BLOCKS  EXCEEUEU) 

0237  ENU 


PROGRAM  SECTIONS 


NAME 

SIZE 

ATTRIBUTES 

SCOOE1 

010164 

2106 

HR  , 1 , CON , LCL 

S I DATA 

000232 

77 

Hn ,U . CON , LCL 

SVARS 

000234 

7 B 

RW , U , CON , LCL 

STEMPS 

000010 

4 

Ra ,0, CUN, LCL 

•SSSS. 

027340 

bOOO 

RR , 0 , OVR , GBL 

CBLOCK 

000424 

1 3B 

R R ,D,OVR,GHL 

TOTAL  SPACE  ALLOCATED  = 040646  B403 


i 


f 


l 4 : 39 : /9 


/9-mah-7h 


PAU  Zb 


fe'UNTHAN  IV-PLUS  V0/-04G 
HHMC.FTN  / 1 4/TH : BLOCKS/ wK 


000  1 


000/ 
000  J ♦ 
0004  * 
000b  ♦ 
000b 
000;  ♦ 
* 

♦ 

♦ 

0 0 0 H ♦ 

0009 

0010 

0011 

001/ 

0 0 1 J 
0014 
001b 

00  1b 

001  1 

00  1 b 
0019 


00/0 

00/1 

00// 

00/. 4 

00/4 
00  Zb 

00 /b 
00/7 

00/N 
00/9 
00  30 
00  31 
00  3/ 
0033 
00  34 
003b 
00  3b 
00  3 7 
O0  3H 

00  19 


C 


SUBKUUTlNt  DUMPl 

KuUTINfe  TO  PH  1 HI  MtMUHY  ALLOCATION  AMP  CUNT t NTS  - 

1NCLUUK  ' COMMON  . fe  1*N ' 

CUM Mll N A l 3000) 

U1NKNMUN  1 A l 1 ) 

KQUlVALk.NCt  l.  A , 1 A ) 
lNCLUPt  1 CHLUCK . fe'TN 1 

CUMMUN  /CM  LUC K / HU)  I/O) , NHLOKM , NbOXfeiS  , Ml , M/,M3,M4, 

NHLUKS  , NOC  , MCYCLt  , N t MPT  , HNO,  1 fe’LAG , Tfe  H AC  , 

TPtL » 1 MUX 1 S , JMOXtS , XL, XU, X L, YU , MM / t , Sfe ACT , XSIZt , 
1 .s  1 '/.fe  , U P M A X , II  MUST  , ST1  KN  , STlfeS  , fe  K1C , H t T A , MPT  , TMAX  , 
CUN  1 ,CON/  , ALPHA  , v,K  A V X , GH  A V Y , LOCI  , LUC  / , N U P l>  A T , N M 1 , 
NV  AHH,  Nfe  NAG,  NPK,  NtMPTC  , Nt  MPTD  , NtMPTC. , 1 fe.NPl  , LMLOCK 

LOGICAL  tfe LAC 


lfe' l LUC/.  M).  0)  Hfe.TUHN 
WKlTt(b,/000) 

wNlTfelb,  / 00b)  Ml , MZ , M3 , NtMPTG, NtMPTC , NtMPTD , NMLUKS  , 

. NCYC , NtMPT , MCYCLt 

lt(LUCZ.LT.O)  GOTO  100 

C DUMP  CUNSKCUTIVt  MtMUHY  LOCATIONS  --- 

NKlTh lb, / 0 0 9 ) 
l / = U LUC  1 - 1 ) / 1 0 ) ♦ 1 0 
10  1 1 = 1 / ♦ 1 
1/51U9 

wH 1 Tfe:  ( 6 , /00 1 ) l 1 A U ) , 1 = 1 1 , l / ) , 1 / 
lfeUZ.Ll.LUCZ)  GOTU  10 
GUTU  bOO 


C DUMP  Ml  MUX 

100  wKlTtlb,Z002) 

DU  I/O  N MUX  si  , NBUXt.S 
1 3= 1 A l M /♦NHUX* 1 ) 

C ANY  MONK  tNTKlfeS  i 

1 1 0 lfeU3.KU.O)  GUTU  1/0 

C NU , PHI NT  MUX , BLOCK 

M N 1 T L l b , / 0 0 B ) NMUX , 1AI 13) 

1 3= 1 A l 1 3 ♦ 1 ) 

GUTU  110 
1/0  CUNTINUt 

C CUN Tt NTS  Ufe  fe  ACH  BLOCK 


MH 1 Tfe:  1 b , /00b) 

DU  130  NM=1 , NMLUKS 

lfe  = IA(NH) 

NC» l A life  U ) 
l L- l A 1 lfe ♦! /) 

CALL  LIM 1 T( Z*Ni  ) 

DU  1/b  1 C = N fe  M P 1 G , N fe  M P 1' U ♦ / • NC  , / 

A U C ) c A l K L ) 

AUOl)=AULM) 

1/b  ILslAULt/) 

(•Nil  tib,  ZOO  3 ) Nb,  l A Ufe  ) , l A Ufe  ♦ 1 ) , l All  ) , Is  lfe  ♦/  , lfe  ♦ 1 1 ) , 
. 1 A l J ) , JsNfe.MPTG, Nfe  MPTl»* /•NC- 1 > 

130  CONTINUfe 


r 


- 3 38  - 


t ON  THAN  IV-PUL*  V0;-040 
NOMC  ,MN 


14:3V : ;v 


;V-MAK-7b 


vkK ;t  ; v 


/ l 4/ TN  : IILlU'N.S/  »N 


0 0 40 

00  4 1 

004; 

00  4 3 

00  4 4 

00  4* 
00  4* 
00  4 7 

00  4 b 
00  4 V 
00*0 

00*1 

oo*; 

00*3 
00*4 
00** 
00** 
oo* / 
oo*n 


oo  *v 


0 0 * 0 


00  M 

o o * ; 


00  M 


1 3* 

1 40 
1*0 
*00 


... PUMP  CONI' AC  r DAI  A 

nk  1 i>:  i * , ;oo  l ) 

011  1*0  NP  = I , NPLONN 
DMAlNKl 
ji  i-ui  im.n 
UUHl.twJ.O)  uP  TO  1*0 
K’lMAlJCl  l 

1KVNP.KU. I Al ICt 4 3 ) ) OO  TO  140 
*NiTM*,;0  0 4t  NO  , { 1 A l 1 ) , laid,  10143), 
, l A U ) ,0*10144,  I C 1 4 1 1 ) 

JC1*  l AUK*  1 4 1 ) 
v.U  TO  1 3* 

COM  l NO t 


n k i r 1 i * , ; o o o ) 

NLTUKN 


;000  KOKNAT  l l X , 1 U>1  1M- ) ) 

;ooi  kokmau  tx,  ion;,  i*) 

;oo;  t okma  t 1 1 o x t impox  , ; \ , *npluck ) 

;00  3 KOKH ATI / 1 X , 313#  1 P 1 0 1 1 0 . ; M 1 0 X , 1 D 1 0 1 10,;)  ) 

;00  4 MtKHATl  ✓ 1 X , *1  10  / 1 X , 1C  Ml-  to. ; ) 

;oo*  niKHAi  i vx , ;mhi  , hx  , ;mm;  , hx  , ;mm 3 , 4X , mini*  mpt\. # 4X , *hn*  mptc , 

4 X , NUNt  MPTP  , 4 X , *MNPliOI\i» , * X , 4 PNC  YC  » * X , *MN fr. MPT  , 4 X , NNMC  Y Cl.f  • 
1 X # 1 1 1 1 0 ) 

;00*  KOKH  AT  ( 1 1 H IK.OCN  DATA,  101  IN*)/  1 X , V H NO  U NC  , b X , ;HXC  , b X , ;iiYC  , 

NX  # 4NXDOT , *X , 4 Ml  POT , * X , 4HTPOT , NX , 4 MM ANN , 3 X , 7NI NfKT 1 A , 

*X  , M1XKM.IM  , *X  , *MY  t MIH  , NX  , 4MHMIH  ) 

;00>  MINMAT1IJH  CONTACT  D A 1 A , 1 0 l 1 H- ) / b X , 3HN1K  , 1 X , 3NPNL , 7 X , JHNI't  , 7 X # 
3HN  DC,  1 \ , 3NNHC  / 1 0 X , 1 MN  , V X , 1 NN  , b X , ; HK  N , b X , ;MKN  , 

1IIMN,  ;x,  3 NCOS*  # lx,  3MXCP,  7\,  3HYCP) 

;00b  KOKH  AT  u X , 31  1 J ) 

;00v  MINMATl  IX,  30  l 1 M*  ) # IV  MV  ALIK  N AN  1 NTUKNN  , 30  V 1 H*  ) ) 

MVP 


DNOviK  AM  Nt.ClIONN 


NAHb 

M 

i.t, 

A TIN  1 HUTM* 

SCOPI*  1 

oo ; / 1 4 

74; 

KM  , l , ION , LCD 

$ r p a i a 

0 0 0 0 0 4 

; 

K M , P, CON , LCD 

S 1 P A T A 

0 0 0 N N 0 

;t* 

KM  , l> , CON  # LCD 

$ V AKN 

0000*4 

;* 

KM  , P # CON  # l/CL 

$ Tl  MD.S 

oooo  i; 

V 

N M , D , CUN # LCL 

. S S * S . 

o ; 7 140 

* o o o 

Km , P , OVN , OHL 

CPl.OCK 

0 0 0 4 ; 4 

1 3 b 

KM  #P,OVN  ,1.10. 

V 0 V A l . NP  AC t ALLOC  ATM)  * 033*7; 


7 13  3 


339 


t UK l K AN 
KBMC  . t t'N 

0001 


0002 

OOOi  » 

0004  » 

0005  * 
000  b 
0007  * 


0008  » 

0004 

0010 

0011 

0012 


001  i 
00  14 
001b 
00  l S 
00  1 7 
0018 
0014 

0020 

0021 

0022 

0021 


0024 
002b 
00  2b 

0027 

0028 
0024 
0010 
0011 

0012 

0011 

0014 

001b 


1 V “PLUS  V02-04G  14:40:14  24-MAB-78 

/ 1 4 / fK : BLOCKS/ «N 


PAGE  10 


SUBKUUTINK  DETECT 

L 

C HUUI1NE  TU  DETECT  ANU  U I’D  ATI.  CUNTACTS 

C 

INCLUDE  1 COMMON . PIN ' 

CUMMUN  AllOOO) 

DIMENSION  1 A l 1 ) 

EQUIVALENCE  (A,1A) 

INCLUDE  1 CriLOCK . t'TN  1 

COMMON  /CBLOCK/  BED l 20 ), NBLUKM , NBOXES, M 1 , M2 , Ml , M4  , 

. NBLUKS,NCYC,MCYCLE,NEMPT,HHU,Et LAG , TEB AL , 

. TDEL,  1MUXES,JBUAES,XL,XU,  YL,  ACl,XSUt, 

. YS12.E,UDMAX,UM0ST.STlEN,STIPS,t  NIC,  BETA,  BUT,  TMAX, 

. CUNl ,CUN2 , ALPHA, GHAVX.GKAVY , LUC  1 , L0C2 , NUPDA T , NB 1 , 

. NVANH,  NEKAG,NPH,NEMPTC,NEMPTD,NEMPTG,  lt.NDl  , LBLUCK 

LOGICAL  EKLAG 
LOGICAL  E INST 
DATA  TOL/ 1.0/ 

C 

1 2 1 = 1 A t NB 1 ) 

NC1  = IAI 121*1 ) 

C 

C — cUHNt.H  CU0HD1NATES  --- 

X1=A11END1  ) 

Yl-A(  lt.NDl + 1 ) 

IKND2=1  Al  lt.NDl  ♦ 2 ) 

X 2 = A l IEND2  ) 

Y2»A l IEND2+1  1 
1EN0J=1AI If ND2*2) 

NP  = 0 

C M'AKT  Dt  Tt  CTluN 

100  N P = N P ♦ 1 

Y'  1 HST  = , l'KUt. , 

C tlH.t  NUMHEN  — - 

NPlaNPK«NP-2 

IPINP1 .GT.NC1 ) NP13NPI-NC1 


C 

C UETENM1NE  LIMITS  Of  SCAN 

200  XX 1 -AMIN  1 l X 1 , X2 ) 

XX2SABAXHX1.X2) 

YY1=AMIN1(YI ,Y2) 

YY  2 = AM AX 1 1 Y 1 , Y 2 ) 

C — ------------  DETENM1NE  BOXES  TU  Ht  SCANNtl)  --- 

NXL  = IK1XUXX1-TUL)/BS12E)4  1 

NXU  = MlNOt  If  IXUXX24TUL)/Bhl2t.)»l  , IBUXtS) 

NYL=IEIX( ( YY 1-T0L)/HS1ZE)»1 

NYU  = M1N0UE1XU  Y Y24TOL1/HS12E )*1 , JBUXtS) 

C - - ' Sf.AHCH  BOXES 

DU  ISO  JHUX=NYL,NYU 
NBOXla(JBOX-l ) * 1 BUXEStNXL- 1 
C 

DU  100  IBUXaNXL.NXU 
NBOX 1 SNBOX 1 ♦ 1 

C SET  BOX  P01NTEH  — » 

l J*M2ENH0Xl-l 


001b 


C 


IS  MUX  EMPTY  ? 


340 
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EORTRAN  1V-PLUS  VU2-04G  14:40:19  29-MAK-7b  PAGE  J1 

HBMC.t'TN  / 14/TR:BLUCKS/I«R 

00 i 7 U'UAUD.tO.O)  CU  TO  300 

003b  lJlslAllJ) 

C IS  ENTRY  1 UK  ANOTHER  BLOCK  7-  — 

00  39  210  1E11A11J17.NE.NB1)  GO  TO  240 

C NO, A Nt  MORE  ENTRIES  7 — - 

0040  2 1b  lfUA(I31  + l).EU.0)  GO  TO  JOO 

'C YES 

0041  1J1=IA(1J1+1) 

0042  GO  TO  210 
C 

C SET  UP  DATA  EUR  SECOND  BLOCK 

004J  240  Nb2=lAlIJl) 

0044  122  = 1A(NB2)  - 

004b  NC2=1A( 122+1 7 

004s  IC2s I A ( I 2 24 1 2 7 

0047  1C=1C2 

004H  NC=0 

C CHECK  POSSIBLE  CONTACT  

0049  2 bo  NC=NC*1 

0050  ' 1EINC.GT.NC2)  GO  TO  21b 

C EDGE  TO  CORNER  CONTACT  7 

OObl  1EINP.GT.2)  GO  TO  2S1 

C NO,  SCAN  EDGES  OE  SECOND  BLOCK 

c YES,  SCAN  CORNERS  OE  SECOND  BLOCK 

OOS2  NP2=NC+1 

00b J IElNP2.GT.NC2)  NP2=NP2-NC2 

00b4  1CL=1C2 

OObb  1C2  = 1 A ( 1 CL ♦ 2 7 

OObb  1CK- 1 A ( 1C2  + 2 7 

0057  X=A(1C2) 

OObb  Y = AUC2+17 

00b9  1BUX2=M1N0CIEIXIX/BS1ZE)41 , IHOXES) 

OObO  JH0X2=M1NU(  IE1XIY/BS1ZE)  , J BOXES- 1 7 

OObl  NBOX2=JBOX2*lBOXES4lBUX2 

C IS  CORNER  IN  SAME  BOX  AS  EDGE  7 

00b 2 1EINH0X1 .EU.NB0X2 7 GO  TO  2bb 

C K ES , CHECK  CONTACT  CONDITION 

C NO,  GET  NEXT  CUHNEH 

00b J GO  TO  2bO 

C CORNER  TO  EDGE  CONTACT 

0 0 b 4 2 b 1 E I RST= . TRUE . 

OObb  NP 1 =NC 

OObb  NP2=NPH 

00b7  1EINP2.GT.NC1 7 NP2=NP2-NC1 

OObb  nh2=«H1 

00b9  X 1 - A ( 1C) 

0070  Yl=A(lC4l) 

0071  1C»1A(IC»2) 

0072  X 2 = A C 1C) 

00  73  Y2  = AUCtl) 

0074  1C2=IEND2 

C NOKMAL  EDGE  TO  CORNER  CONTACT  TEST 

007b  2bb  IE ( . NUT . E 1HST  7 GO  TO  2bO 

007b  X D I E s X 2 • X 1 

0077  YUIESY2-Y1 

007H  2=S0RT(XD1E»*24YD1E**27 


3 


KURTKAN  I V •PLUS  V02-04G  14:40:19  29-MAK-7K  PAGE  32 


KUNC.FTK  / 14/TH  : BLOCKS/MK 

00  7 9 S1NA=YD1K/Z 

0UH0  COSA=XDIK/Z 

0091  K 1HST= . FALSE . 

C 

00b2  2b0  YT  = (A(  1C2  + 1 )-Y  1 ) *CUSA 

. -I  AUC2  ) -X 1 ) »S1NA 

U0b3  IE1YT.GT.2.0)  GO  TO  2bU 

O0b4  IEIYT.LT.-3.0)  GO  TO  2b0 

C 

OObb  XT  = l A11C2)-X1 )*COSA 

. + 1 A( 1C2  + 1 )-Y 1 ) *S1NA 

OObb  IKlXT.GT.Z+2.0)  GO  TO  2bU 

00b7  IK1XT.LT. -2.0)  GO  TO  2b0 

OObb  I PFLG  = 1 

00b9  1K1YT. GT. 1.0. OK. XT. GT.Z. OK.XT.LT. 0.0)  1PKLG=0 

C IS  CONTACT  ALREADY  DETECTED  7 

0090  JC1=1A( 121+13) 

C CHECK  CONTACT  LIST  1 OK  THIS  BLOCK 

0091  2bb  IKIJCI.EO.0)  GO  TO  2b0 

009V  1C  1 = 1 A ( JC 1 ) 

C CHECK  EACH  STOKED  CONTACT  

0093  1K1 1AI 1C  1 + 3) .EO.NB2. AND. 1 A 1 1C1  + 2 ) .E0.NP2. 

. AND. 1 Al 1C1+1 ) .EO.NPl ) GO  TO  270 

0094  JC1  = 1 A ( JC 1 + 1 ) 

009b  IjO  TO  2ob 

C 

009b  270  CONTINUE 

C 

0097  1KIYT.GT.-2.0)  GO  TO  27b 

009b  NK1 TECb, 3000 ) 

C 

C UPDATE  EXISTING  CONTACT  DATA  

0099  2)b  A(lCl+b)=SlNA 

0100  A11C1+9)=C0SA 

0101  Al 1C1+10)=A( 1C2) 

0102  AC1C1+1 1 )=A( 1C2+1 ) 

0103  1 A 1 1C  1 ) = 1PELG 
C 

0104  1EINP.GT.2)  GO  TO  400 

010b  GO  TU  2b0 

C 

010b  2K0  CONTINUE 

C 

0107  IKl IPKLG.EO.O)  GOTO  2 SO 

010b  IKIYT.GT.0.0)  GO  TO  2S0 

C 

0109  Y TK  = ( AllCK  + 1 ) - Y 1 ) *COSA- l A 1 1CK ) -X 1 )*S1NA 

0110  1KIYTH.LE.-2.0)  GO  TU  2bO 

C 

0111  YTL=( AllCL+1 ) - Y 1 ) *COSA- ( A C 1CL ) -X 1 )»S1NA 

0112  1KIY1L.LE.-2.0)  GO  TO  2S0 

C 

C LOCATE  EMPTY  CONTACT  DATA  SPACE  

0113  CALL  EMPTYC 

0114  1 C 1 =N 1 MPT 

C LOCATE  EMPTY  CONTAC1  LIST  ' DOUBLES ' 
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011b 

011b 
0117 
01  IB 

0119 

0130 

0131 
0133 

0133 

0134 
013b 
013b 
0137 
013B 
0139 

0130 

0131 
0133 

0133 

0134 
013b 
013b 
0137 
01  3B 

0 139 

0140 


0141 

0143 

0143 

0144 
014b 
014b 
0147 


014b 

0149 


GALL  tMPTKD 

LNTtK  CONTACT  INTO  THt  CONTACT  LIST 

UlNtMPT+l)=IAtl21+13) 

lA(131M3)=NtMPT 

lAtNCNPT)=lCl 

KtPLAT  KOK  StCONU  BLOCK  

CALL  LMPTYl) 
lAtNtMPT+1  ) = IAU22*13) 

1AII32»13)=NLMPT 
lAtNLNPT)— 1C1 

Nt*  CONTACT  DATA  

AtlCl*4)=0.0 
AllCl»b)=0.0 
At  lCl+b 1-0.0 
AllCl+7)=0 .0 
lAtICl+1 J=NPl 
lAtlC143)=NP3 
lAt 1C  1 ♦ 3 ) = NB2 
GO  TO  37 S 
300  CONTINUC 
3b0  CONTINUt 


...............  tNO  SCAN  ul 

IKINP.GT.l)  GO  TO  400 
X1  = X3 
X 1 = X 2 

X3=A(ltNU3) 

X3=At 1KN03+1 ) 

GO  TO  100 


BOXtS  


ChtCK  ON  COKNtK  TO  tl)Gt  CONTACT 


400  NP=NP+ 1 

UINP.GT.3)  GO  TO  bOO 


NO  , LND  OfcTtCT I ON 

VLS,  Kt'TUKN  TO  SCANNING  LOGIC 

X1=A( ILN03) 

X1=A( 1LND3*1 ) 

X 3-X  1 
X3  = Y1 
ICK=1LN01 
!CL=ltNU3 
GO  TO  300 

tNO  OtTtCTlON  

bOO  NUPDAT=NUHPAT*1 
UNOST-O.O 

SCAN  CONTACTS  AGAIN  TO 

OtLtTt  CONTACTS  NOT 
KLAGGKO  KOH  PHLStHVATION  


OlbO 

1)0  bbO  Nbb=l  , N b L U rv  S 

0 1 b 1 

1BL=1 AINBB) 

01  b3 

b 1 0 

JC1=1A(1BL*13) 

0 1 b 3 

JTLMP=ISt>13 

0 1 b4 

b30 

IKl JC1 .LO.O)  GOTO  bbO 

Olbb 

IClslAt JC1 ) 

Olbb 

IKINBB.LO.  1 At  1C1  43  ) ) GOTO  b30 

0 1 b7 

lFHAt  IC1  ) .Nt.O)  GUTO  630 

01  bB 

CALL  DKLCONt JTfcHP) 

14:40:19 
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0169 

GUTO  610 

0160 

630 

JTEMP=JC1+1 

0161 

JC 1 = 1 A ( JTEMP  ) 

0163 

GOTO  630 

0163 

660 

C 

CONTINUE 

0164 

3000 

KOKNAT(30X,36H  OKIKT  CONNECTION  NEOUIHEDJ 

0166 

ENO 

PKOGK  AM  SECTIONS 

NAME  SIZE  ATTK1BUTLS 


scoot  1 

006360 

1 364 

Km, I, CUN, LCL 

SIOATA 

000113 

37 

Km  , 0 , CUN . LCL 

SVAKS 

000330 

tOH 

KM ,0, CON, LCL 

STEMPS 

000014 

6 

KM, 0, CUN, LCL 

.mi. 

03/340 

6000 

KM .O.OVK.GbL 

CBLOCE 

000434 

13H 

Km .D.OVK.GBL 

TOTAL  SPACE  ALLOCATED  = 036713  7b53 
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KBMC.KTN  /14/TH:BLOCKS/»k 

c 

0001  SUBKOUT INt  OELtNT 

c 

C- — ... --  ot.Lt T ION  OK  OBSOLETE  BOA  ENTRIES  - — 

C 

0002  INCLUDE  1 COMMON • KTN 1 

0003  ♦ COMMON  A ( 3000 ) 

0004  • DIMENSION  I A ( 1 ) 

000b  » EUU1VALENCE  IA.1A) 

000b  INCLUDL  'CBLOCK.FTN' 

0007  » COMMON  /CBLOCK/  HED l 20 ) , NBLUKM , N BOX ES , M 1 , M 2 , M 3 , N 4 , 

» . NBLUKS,NCYC,MCYCLt,NtMPT,KHO,tKLAG,TFHAC, 

* . TOLL , lBOAtS, JBuAtS, XL, XU, YL, YU.HSIZt .St AC1 , XSIZE, 

* . YSIZt.UDMAX.UMOST.STlFN.STlFS.FRlC.BtTA.BUT.TMAX, 

* . CONI , COM2 , ALPHA .GKAVX.GKA'Y , LOCI , LUC2 , NUFDAT, NB1 , 

» . NVAKB.NKKAG.NPK.NtMPTC.K  .1PTD  , NtMPTG  , 1 tNDl  , LBLOCK 

000 d * LOGICAL  EFLAG 

0000  DATA  TOL/b.O/ 

C 

0010  12=1A(NB1) 

0011  NC= 1 A ( 1 2+  1 ) 

0012  NP  = 0 

C OtTtKMINt  LIMITS  OF  BLOCK  

0013  XX1=XD 

0014  XX2=XL 

0015  YY 1=YU 

001b  Y Y2  = YL 

0017  IEN02  = IAU2-»12) 

00  1 B 100  NPINP+1 

0010  X 1 = A l 1 1 NO  2 ) 

0020  Yl=A(ltN02*U 

0021  IENU2=IAlltND2»2) 

0022  XX1  = AM1N1  l XXI , XI ) 

0023  XX2=AMAX1(XX2,X1) 

0024  YY1=AM1N1CYY1,Y1) 

0025  YY2=AMAX1CYY2,Y1) 

002b  IKINP.EO.NC)  Go  TO  150 

0027  GO  TO  100 

c DKTLHM1NL  BOXtS  TO  BK  StAKCHtO  

0020  150  NXL=MAX01IK1XI (XXl-TOD/BSIZE)  ,1) 

0029  NXU  = M1N0(  lFlXUXX2*TOL)/BSlZE)+2, 1 BOXtS) 

00  30  NYL  = MAX0l  1KIXUY  Y 1 -TOL ) /BSI ZE ) , 1 ) 

00  31  NYU=MIN0l  1F1XU  Y Y 2 +TOL ) / BS 1 ZE ) ♦ 2 , J BOXtS) 

c SEARCH  BOXtS 

0032  00  500  JBOXsNYL.NYU 

0033  NB0X1=( JBOX-1 )*1B0XKS»NXL-1 
C 

0034  00  400  IHOX=NXL.NXU 

0035  NB0A1=NB0X1»1 

C 

c SET  BOX  POINTtN 

003b  13=M2+NB0X1-1 

0037  JTEMP= 1 3 

0030  I3=IA(I3) 

C NO  ENTRIES  OK  END  OF  LIST  1 

0039  200  1FU3.KU.0)  GO  TO  400 
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C NO, IS  ENTRY  FOR  THE  bLUCN  CONCERNED  ? 

0040  1FI AHSll Al 13) ) .Nt.Nbl ) GO  TO  250 

C Its, IS  ENTRY  VALID  ? 

C NO, DELETE  

0041  1F11A(13)  .EU.NB1)  GO  TO  300 

C VES, PRESERVE  

0042  IK  C 1A113J .EO.-Nbl ) I A 1 1 3 ) =- 1 A 1 1 3 ) 

C GET  NEXT  BOX  ENTRY 

0043  2S0  JTEMP=1 3+1 

0044  13=1A(13+1) 

0045  GO  TO  200 

C DELETION  OP  OBSOLETE  ENTRY 

O04b  300  IA(JTEMP)=1A1 13+1) 

C RECOVERY  OF  EMPTY  'DOUBLE'  

0047  1FINEMPTD.NE.0)  GO  TO  350 

0048  NEMPTD= 1 3 

0049  I A 1 NEMPTU ) =0 

0050  GO  TO  400 

0051  350  1 A 1 1 3 ) sNEMPTD 

0052  NEMPTD=13 

0053  400  CONTINUE 

0054  500  CONTINUE 

c END  0F  B0X  SEARCH 

0055  HETURN 

005b  END 


program  sections 


N AML 

S1ZL 

ATTKIbUTLS 

SCUDLl 

Ool  726 

491 

KM , 1 , CON , LCL 

S PD a r A 

000004 

2 

KM , D , CON , LCD 

S 1 DAT  A 

OOOOoO 

24 

KM  , D , CON , LCL 

SVAK5 

0001  20 

40 

Km  ,L>,Cun,LCL 

STLMPS 

000010 

4 

KM ,D, CON, LCL 

.$$$$. 

0 2 7340 

bOOO 

RM  , D , U V K , vihL 

CBLUCK 

0O0424 

138 

Km ,D,OVK,(ibL 

TOTAL  SPACE  ALLOCATED  = 03212b  bb99 
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0001  SUBROUTINE  DELCON1 JTEMP) 

c 

C DELETION  OK  OBSOLETE  CONTACTS  

c 

0002  INCLUDE  'COMMON. FTN' 

0 OOJ  » COMMON  AtJOOO) 

0004  • DIMENSION  1A(1) 

0005  • tOU  I V ALt.NCt.  C A , 1 A ) 

000b  INCLUDE  'CBLOCK.FTN' 

0007  » COMMON  /CBLOCK/  HtD l 20 ) , NBLOKM , NBOXES , M 1 , M 1 , M 3 , M4 , 

• . NBLOKS,NCYC,MCYCLE,NEMPT,HHO,EELAC,TFRAC, 

> . TUEL , IBUXES, JHuXES, XL, XU, YL, YU, BS1ZE.S3 ACT, XSIZE, 

• . ysize,udmax,umost,stifn,stifs,ehic,bita,but,tmax, 

• . CONI  ,CON2, ALPHA ,GRAVX, GRAVY , LOCI ,LOC2, NUPl'AT, NB1  , 

• . NVARB,NFNAG,NPH,NENPTC,NEMPTO,NENPTG, 1END1 ,LBL0CK 

ooob  • logical  eflag 

C 

0 POINTER  TO  OBSOLETE  DOUBLE  

0000  JC 1 - 1 A ( JTEMP ) 

C POINTER  TO  OBSOLETE  CONTACT  DATA  

0010  IC1=IACJCI) 

C REMOVE  FROM  CONTACT  LIST 

0011  IA(JTEMP)=1A(JC1«1 ) 

C — ........  hecoveh  empty  'double'  — 

0012  1A1JC1 )=NENPTD 

001J  NEMPTD-JC1 

C LOCATE  CONTACT  POINTER  IRON  SECOND  BLOCK  

0014  30  NB2=IAIIC1*3) 

0015  122£1A(NB2) 

001b  JTEMP2=I22»1 3 

0017  JC2EIA10TEMP2) 

C-  — - — -IS  THIS  THE  CONNECT  P01NTEN  ? 

00  1 B 40  IF(1AIJC2).NE.IC1)  GO  TO  SO 

C YES, DELETE  ENTN » , NECOV EN  EMPTY  'DOUBLE'  

0010  1AI JTEMP2)  = IA1JC2<-1 ) 

0020  IA(JC2)-NEMPTD 

0021  NENPTD=JC2 

0022  GO  TO  bO 

C NO, GET  NEXT  CONTACT  POINTER  

0023  SO  JTEMP2=JC2+ 1 

0024  JC2  = 1 A l JTEMP2 ) 

0025  GO  TO  40 

C DELETION  OF  CONTACT  DATA,  RECOVERY  OF  SPACE  

002b  bO  1AUC1)=NEMPTC 

0027  NEMPTC-IC 1 

C 

002b  bo  return 

0024  END 

PROGRAM  SECTIONS 

NAME  SIZE  ATTRIBUTES 

SCODE1  OOOSlb  1 b 7 RM , 1 , CON , LCL 


3-17 
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0001 


0002 

0003  * 

0004  ♦ 
000b  * 
000b 
0007  * 


oOob  * 


ooow 

0010 
001  1 
0012 

0013 

0014 
001b 

0010 

0017 


C 


C 

C 


SUBRoU 1 1 NL  EMPTYC 

ROUTINE  TU  LOCATE  EMPTY  CONTACT  DATA  SPACE  

INCLUDE  * COMMON , FTN ' 

COMMUN  At  3000 ) 

DIMENSION  I A C 1 ) 

EQUIVALENCE  l A , 1 A ) 

Include  *cbluck.ftn' 

common  /CBLOCK/  HL0C20) , NBLUKM , NBOAES , M 1 ,M2,M3,M4, 

. NBLUKS, NCYC, MCYCLE , NEMPT, RHO, EE LAG, TER AC , 

. TDtL  , 1 BOXES,  JbOXES,  XL,XU, YL,  Yu,BSIZE  ,SEACT,  XS12E. 

. YSIZE , UDMAX , UMUST , ST It  N , STIES , ERIC , BETA , BUT, TM AX  , 

. CUM  ,CON2, ALPHA, CHAV  A, GhAV i , LUC  1 , LOC 2 , NUPDAT , NB 1 , 

. NVARB,NERAG,NPR,NEMPTC,NtMPTD,NEMPTG, 1 END  1 , LBLOCK 

logical  eelag 

DOES  list  oe  empty  contact  data  exist  ? 

1ECNEMPTC.NE.0)  GO  TO  10 

NO  

CALL  L1M1TC12) 

NEMPT=NEMPTG 
NEMPTG=NEMPTg* l 2 
GO  TO  20 

...... yes 

10  NEMP l=NEMP rc 

nemptc=i ACNEMPTC) 

20  RETURN 
END 


PROGRAM  SECTIONS 


NAME 

SIZE 

$CODE 1 

000144 

bO 

SPDATA 

000004 

2 

SIDATA 

000004 

2 

. ssss . 

027340 

bOOO 

CBLOCK 

000424 

J3B 

AT  TK 1BUTES 

R*  , 1 , CUN , LCL 
Km  ,D, CUN, LCL 
RW  ,D, CUN, LCL 
KW , D , U V R , GBL 
KW,D,UVR,GBL 


TOTAL  SPACE  ALLOCATED  = 030140  bl92 


NU  EPP  INSTRUCTIONS  GENERATED 
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NBMC.FlN  / 14/ IK  I bLOCKS/*N 


00O1 


0002 

0003  ♦ 

0004  * 
000*  ♦ 
000t> 

0007  • 


000b  » 


0009 

0010 
001  1 
0012 
001  J 

0014 

001* 

001 b 

0017 


c 


c 

c 


c 


c 

c 

c 


SUBKUUTINE  EMPTYD 

N0UT1NE  TO  LOCATE  EMPYTY  ' DOUBLES ' --- 

INCLUDE  ' COMMON • FTN ' 

COMMON  A ( 3000  ) 

DIMENSION  1 A ( 1 ) 

EQUIVALENCE  l A , 1 A ) 

INCLUDE  ' CBLOCK • KTN ' 

COMMUN  /CBLOCK/  HED l 20 ) , NbLUK* , NBUXES , M 1 , M2 , M 3 , M4 , 

. NHLUKS, NCYC , MCYCLE, NEMPT , KHU , EKLAG # TFK AC , 

. TOLL ,1  BOXES, JbUXES, XL, XU, Y L , Y U , BS1 ZE , SF ACT , XS 1 ZE , 

. Y * 1 Zb  , Ul)M  AX  , UMOST  , 5 i 1 KN , ST I FS , FR1C , BETA  , BUT , TMAX , 

. CUM  , CON  2 , A L PH  A , GH  A V X , GN  A V Y , LUC 1 , L0C2 , NUPDA T , Nb 1 , 

. NVAKb,NKHAG,NPK#NEMPTC#Nt.NPro,  NEMPTG , 1ENL>1  , LbLUCK 

LOGICAL  EKLAG 


DOts  LIST  UK  EMPTY  ' DOUBLES ' EXIST  ? 

IK INEMPTU.NE.O)  GU  10  10 

N0 

CALL  LIMIT!  2) 

NEMPT=NEMPTG 
NEWPTG=NEMPrG*2 
GU  TO  20 

YtS 

10  NEMPT=NEMPTD 

NEMPTD=IA(NEMPTD) 

20  KETUKN 

END 


PKUGKAM 

SEC  LIONS 

NAME 

SIZE 

AT  I P 1 HU TES 

SCODEl 

000144 

*0 

Nil  , 1 , CUN  , LCL 

SPDA  l A 

0 0 0 0 0 4 

2 

N"  ,1),  CON,  LCL 

S1DATA 

000004 

2 

KW , 0 , CON , LCL 

. SSSS  . 

02  7 3 40 

toOOO 

K*  , l) , UVH  , GbL 

CBLOCK 

000424 

13b 

N W , D , OVK , GBL 

TOTAL  SPACE  ALLOCATED  = 030140  M92 


NO  KPP  lNSTKUCTlUNS  GENEKATED 
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0 0 0 1 


0 1)  0 2 
000  1 
0004 
000} 
0 0 0b 
000  I 


000b 

0004 

0010 


00  1 1 

00  w 

001  3 

0014 

001b 

00  16 


ooi  i 
Co  1 b 
0010 

0020 

0021 

0022 
00  2 1 
0024 
002b 

0026 

0027 

002b 

0024 

0030 

0031 

0032 

0033 

0034 

003b 


SUBROUTINE  SCAMNC) 


O' 


c 


ROUTINE  ru  CHECK  BOX  ENTRIES  ALONG 

THfc  EDGE  01  A BLOCK  

include  1 common  . i*  r n ' 

COMMON  A 1 3 0 0 u ) 

DIMENSION  1 A 1 1 } 

LOU  1 VALENCE  iA.IA) 

INCLUDE  ' CBLOCK . ETN ' 

COMMON  CBLOCK/  HEOl 20 ) , NBLOKM , NBOX1 S, m 1 , M2 , M3 , M4 , 

. NBLOKS,NCYC,MCYCLE,NEMPT , KUO , hi  LAG , TEH AC , 

. TOLL , 1 BOXES , JBOAtS , XL, XU, YL, YU , BSIZt , SI  ACT , XSI2E , 

. YS1ZE, UDMAX, UM0SI,STJ1 N,ST1ES, 1 RlC,bETA, BUT, TMAX, 

. CON  1 ,CON2 , ALPHA , GRAVX .GRAVY , LOC 1 , LOC2 .NUPOAT.Nbl , 

. NV ARB, NFHAG , NPR, NEMPTC .NEMPTD, NEMPTG , IENU1 , LHLOCK 

LOGICAL  EELAG 
L’ATA  TOL/  1,0/ 

I2=IAlNBl I 

DETERMINE  COORDINATES  U1  THE  ENDS  ol 

THE  eOGE  

X 1 = A t 1 E N 0 1 ) 

Y 1 = A ( I ENOl ♦ 1 1 
lEND2  = lAllENDH-2) 

X2-AUEN02) 

Y 2 - A l.  I E N D 2 + 1 ) 

1S  THE  BLOCK  PIXEL  ? 

1EIX2.GT.XL.ANO.X2.LI .XU. 

AND. Y 2 .GT. YL. AND. Y 2 . LT. YU ) GU  TO  1U0 

YES , SET  PIXEL  ELAG  

1A112)=2 
All  2*4) =0.0 
Ail2+b)=0.U 
A 1 J 2*e ) = 0. 0 
K E r U K N 

NO,  CONTINUE 

100  XSTEP=1.0 
YSTEP=1 .0 
NP  = 0 
I 2 N =0 

START  SCAN  

lbO  N P = N P + 1 
Ns=  1 

xtol=o.o 

YTOL=0.0 

DETERMINE  SCANNING  DIRECTION  

111 AHS( X2-X 1) .GT. ABS ( Y2-Y 1) ) NS=0 

DETERMINE  X AND  Y INCREMENTS  

IKX1.GT.X2)  XSTEP=-XSTEP 
1PIT1.GT.Y2)  YSTEP=-YSTeP 

DETERMINE  TOLERANCES  

IPINS.il).  ) XTOL=TUL»XSTEP 
IP l NS. EO . 1 ; YTOL=TOL*YSTEP 

DETERMINE  LIMITS  OF  EDGt  

1BOX1 =MIN0( IP  I X 1 l X 1-XTOL) /BSIZE ) ♦ ! , 1 BOXES) 


F‘UR  THAN 
RbMC.FTN 

00  3b 
0037 
003d 
0030 

0040 

0041 

004*; 

0043 

0044 
004b 

0040 
0047 
004  d 
0040 
OObO 

00  bl 
0052 
00b3 


00b4 
OObb 
00b  6 
00b  7 
OObd 
OObO 
0000 
000 1 
00b2 

0003 

0004 


OOob 

OOOo 

0067 

OObd 

0000 

0070 

0071 

0072 
00  7 3 
0074 
007b 

0070 

0077 

007d 
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XI4/TK:bL0CRS/wR 

jbuxi=minoc ifixc  c yi-ytod/bsize) .jbuxes-i) 

i BOX  N = M INOCIF'IXC CX2+XT0L) 2BS1ZE)  + 1 , IbOXES) 

JdUXN=MlNOC IFIXCCY2+YT0L1/BS1ZE) , J BOXES- 1 ) 

NBUX1=JHUX1*IB0XES+1BUX1 

NbOXN=JBUXN»IbOXES+IBOXN 

C SET  BUX  POINTERS 

I21=M2+NbUXl-l 
122=M2+NBUXN-1 
IH12N.EG.I22)  GU  TO  750 
I2N  = 0 
GU  TU  450 

C DETERMINE  DIRECTION  Of  BOX  INCREMENT 

200  IFC1BOX1.EO.IBUXN)  GU  TO  obO 
lECJbUXl .EU. JBUXN)  GU  TO  700 
IFC12N.EU.0)  GO  TU  210 
1EINS.EU.0)  GO  TU  bbO 
GU  TO  700 


c SET  IJF  EOlUATIUN  OF  LINE 

210  1EMP1  = C Y2-Y1 ) XCX2-X1  ) 

TEMP2=Y1-X1*TEMP1 
IFCNS.EO.O)  GU  TU  250 

C DETERMINE  COUKDI N AT  ES  UF  INTERSECTION 

C WITH  BUX  GK 10  

YN=FL0ATCJBUX1 ) *BSIZE 
IF (yi.GT.Y2)  YN=YN+BS1ZE 


GU  TU  300 

250  Xn=FLUATCIB0X1-1)*BS1ZE 
1FCX1.GT.X2)  XN=XN+BSIZE 
300  IFCNS.EO.O)  GO  TU  350 
YN=YN+YSrEP»HSIZE 
XN=CYN-TEMP2)/TeMP1 
GU  TU  400 

350  XN=XN+XSTEP*BS1ZE 
YN=1EmP1»XN+TEMP2 


C DETERMINE  THE  BOX  IN  WHICH  THE 

C 1NTEH.5ECTIUN  OCCURS 

400  JBUXN-MINuCIFIXCCYN  + YTUD/BSlZE) , J BOXES- 1 ) 
1BUXN=MIN0C l FIXC  CXN+XTOL)/bSIZE)+l , I BOXES) 
NBUXN=JBUXN»1BUXES+IHUXN 

C SET  bUX  POINTER 

I2N=M2+NBUXN-1 
GO  TU  200 

C IS  dLUCK  ALREADY  ENTERED  ? 


4b0  1FC1ACI2D.E0.0)  GO  TO  bbO 
I23=IAC121  ) 

500  IFC1ACI231.E0.NB1)  GO  TU  600 
1FC1AC123+11.EO.O)  GU  TO  550 
I23=IAC 123+1 ) 

GO  TO  500 


C NO  * CALL  BOXING  ROUTINE 

550  CALL  BOXC 
GO  TO  dOO 

C IS  ALL  THE  EDGE  SCANNED  ? 

bOU  IFC121.EU.122)  GO  TO  750 

c YES,  GET  NEXT  EDGE  UR  RETURN 

c NO,  1 NCHEMEN 1 BOX  NUMBER 


14:42:  l a 


2V-MAR-78 


PAGt  43 


FORTRAN  IV-PLUS  V02-04G 
HbMC.FTN  /14/TR:BLOCXS/nR 


oo7y 

XFCI21.bO.I2N)  GO  TO  300 

0080 

00  TO  200 

c- 

Y DIRECTION 

oo«i 

bbO 

121=I21+1FIX(YSTEP)*1B0XES 

0002 

JB0X1=JBUX1+IF1X( YSTEP) 

0083 

GO  TO  4b0 

c- 

X DIRECTION 

0084 

7oO 

I21  = 121  + IF1XUSTEP) 

008b 

180X1=1 BOXI+IFXXIXSTEP) 

OObo 

GO  TO  4b0 

008  7 

7 bO 

XS1EP=ABS(XSTEP) 

0088 

YSTEP=ABS(YSTEP) 

c- 

0089 

IFCNP.EU.NC)  GO  TO  800 

c- 

EDGE 

oooo 

1 2 N = 1 2 2 

0091 

X1=A( IEND2 ) 

0002 

Y 1 = A t 1END2+1 ) 

0003 

lENU2=lACIEND2+2) 

0094 

X2=A( 1LND2) 

000b 

Y2=ACIENU2+1) 

000b 

GO  TO  1 bo 

c- 

... 

0007 

800 

RETURN 

0008 

END 

PROGRAM  SECTIONS 


N AML 

si  zb 

ATTRIBUTES 

SCU0L1 

003216 

839 

RN , I ,CUN , LCL 

SIDATA 

00004b 

19 

RW  ,l),CON,LCL 

$ VAKS 

000 1 b4 

i>4 

RN  ,D, CUN, LCL 

STLMPS 

000004 

2 

RN ,0, CUN, LCL 

.S$S$. 

02 1340 

bOOO 

R W ,D,OVH , GBL 

C BLOCK 

000424 

138 

RN ,U,OVH,GBL 

TOTAL  SPACE  ALLOCATED 


033431)  7 0 b 2 
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EOHTMAN  1V-PLUS  VO2-04L 
H b N C . 1 T N /T4/TN:bLUCKS/MK 


0001 


0002 

OOOi 


0004 

000b 

000b 
000  ) 
OOOW 

0004 

0010 


SUBHOll TINE  LIMITINHKO) 

C 

C-- ......... CHECK  MEMOKT  ALLOCATION 

C 

include  1 c block . e tn  1 

COMMON  / C BLOCK / HEU120) , NHLOKM , NbOXES , M 1 , M 2 , M 3 , M4 , 

. NHLOKS.NCVC.MCVCLE.NEMPl  , HHU , EELAG  , TEH  AC , 

. TOEL  , 1 BOXEN,  JBUXES,  XL,  XU,  YL,  YU  , BS1ZE  , SI  ACT  , XS1ZE , 

. Y5I2E,UDMAX,UNUST.STIEN,STIES,EKTC,HETA,BUT,TNAX, 

. CONI  ,C0N2  , ALPHA.CHAVX  ,GKAVY  , LOCI  , L0C2  , NUPPAT  , NH1  , 

. NVAHh,NEKAG,NPH,NEMPlC,NtMPTP,NEMPTG,  1 EMU  ,LBLOCK 

LOblCAL  EELAG 
C 

11  l INEMPTG+NNEU  ) . LE . M4  . ANO  . I NEMP  r ♦ NKEU ) . LE  . M4  ) NETUNN 

C 

EELAG-. TKUE. 

NKllElb, 1000) 

CALL  llNlsH 
C 

1000  EOHMA1114H  111  1 KNOW  : MEMoHY  ALLUCA110N  EXCEEDED) 

ENl) 


PKOGHAM  SECTIONS 


NAMt 

5 I i.t. 

attkibuten 

scoot  1 

000^04 

bh 

K» , 1 , CON , LCL 

s l o a r A 

0 0 0 0 b 4 

il 

H*r ,0, CON, LCL 

CHLOCK 

0004^4 

1 J H 

HW , 0 , OV  K , GBL 

TOTAL  SPACE  ALLOCATED  = 000)04  22b 


NO  EPP  INSTHOCTIONS  GENEHATED 
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POHTKAN  IV-PLU.N  V02-04G  1 4 : 4 3 : 1 b 7y-MAH*7b  PAG)  4b 

HBMC.1TN  /M/TKSBLOCAS/NN 


0001 


0007 
000  3 » 
0004  » 
000b  ♦ 

000b 

0007  ♦ 

• 

* 

* 

» 

* 

0008  * 

0000 

0010 


0011 

0017 

0013 

0014 
001b 
001b 

0017 

0018 
0010 


SUMH0UT1NE  P1N1SH 

C 

C TIDY  UP  A Nl'  STOP 

C 

Include  • common. ptn • 

COMMON  A 1 3 0 0 0 J 
DIMENSION  1 A 1 1 ) 

EQUIVALENCE  IA.IA) 

INCLUDE  'CBLOCN.PTN' 

COMMON  /CBLOCK/  MED170)  , NHLUNM , NriOXES , M ,87, M3, 84, 

. NHLOAS,  NCYC,  MCYCLE , NtMPI , MHO,  El  LAG.T)  8 AO, 

. TDEL,IBOXES,JBUXES,XL,XU,YL,YU,BSlZE,SPACT,XSUE, 

. YSIZE,UUMAA,UM0ST,ST1)N,STDS,)-KIC,8E1A,BPT,TMAX, 

. CUN  1 , CUN  7 .ALPHA, GKAVX.GPAVY, LUC  1 , LUC 7 , NU PD AT , NBl , 

. NlAHH,NPKAG,NPh,N)HPTC,NEMPTD,NEMPTG, 1LNU1 , LBLOCft 

LOGICAL  EPLAG 
C 

CALL  PLUTNI) 

NKITElb, 7000)  MCYCLE .NUPOAT 
C 

C UNITE  KESTANT  ML)  IP  NO  EKHOHS 

1PIEPLAG)  GOTO  100 
KLNlNO  1 

rnUTEl  1 ) IHEDll ) , 1=1 , LBLUCK ) 

■xrrtd)  iAi  i > , i = i ,M4> 

»H 1 Tt l b , 7001 ) 

100  STOP 

c 

7000  POKMAT l 30X , 1 3H  TOTAL  CYCLES, 110/ 

. 30X.13H  NO,  UPDATES  ,110) 

7001  POKMATl 30X , 37H  A HeSTAKT  PILE  hAS  U) EN  MN 1TTEN ) 

C 

End 


PHOGNAM  SECTIONS 


N AMK 

ATTK IbUTtS 

ICODK! 

000  Jf>4 

122 

Kw  , I , CON , LCD 

$ IDA  I A 

000  WO 

40 

K*  ,0,CON,LCL 

SV  AK.S 

000004 

2 

HW t D # CON , LCL 

.$$$$. 

02  7 J40 

6000 

KW  ,Of  UV  K , V>HL 

CBLUCh 

000424 

1 JH 

Hu  ,D,OVR,viBL 

TOTAL  SPACE  Al. LOCATED  * 0304  )4  b307 

NO  PPP  INSTKOCT IONS  GENEKATED 
,CUNDALL.LST/*SP*NDMC/ 14/Ll : 1/CO! 10 


L 
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A1TKNPIX  XV:  LISTING  OF  PKvHIKAM  JOINT 

NOTK:  All  argument s , common  block  symbols  and  array  variables  are  defined 

on  the  listing  itself. 

SUbKOUTlNL  JOINT (DUS, DUN, STKS.STRN, JlD, RIGID) 

LOGICAL  RIGID 

COMMON  /PHIC/  PHlb,  AiS,  AKN  , AM) , AJKL  , l>t  GRAD 
U1MPNS10N  SSI  BO)  ,SN(  BO)  , US (SO)  , UN(  BO)  ,UN1)(  SU)  ,D(  SO) 

C 

C LIUS  = SHtAK  DISPLACKMPNT  lNCKP'MPNT  - INPUT  TO  <J01NT> 

C DUN  = NORMAL  " " “ " “ 

C STRS  = Ntw  SHtAK  STRPSS  - OUTPUT  PROM  <J01NT> 

C STKN  = " NORMAL  " " 

C 

C JlD  = JOINT  Il>;  IP  JIU  < U THt  JOINT  MILL  bP  1N1TIALIZPD 
C I.t.  DAM AGP  MILL  bt  RPStT  TO  ZPRU  AND 

C STKPSStS  AND  DISPLAC PMt NTS  ZPKUPD 

C 

C IP  RIGID  = .TRUt.  JOINT  IS  RIGID  IN  THt  NORMAL  DIKLCTION 

C UN  1HIS  CAST,  STKN  MUSI  Bt  INPUT  TO  <J01NT>) 


PH  1 b i KKS1UUAL  (UR  bASt  ) 1-KlCTloN  ANGLP  IN  DPGKttS 
AKS  s PLASTIC  SHtAK  STIPPNPSS 
AKN  = " NORMAL 

AKl)  = DILATION  CONSTANT 

A JKC  : JOINT  ROUGHNPSS  COlPUCIPNT  (Spt  BARTON) 

UtoKAD  CONVtRSlON  PACTi>R  PROM  DPGRttS  TO  RADIANS 

SS (JlD)  = SHtAK  STRPSS  POK  JOINT  MIMbt.R  JlD 

SN(JID)  = NORMAL  " " “ “ " 

US(JID)  = SHtAK  DlSPLACPMtNT  " " " 

UN(JID)  = NORMAL  " " ” ” 

UND(JID)  = VIRTUAL  NORMAL  DlSPLACPMtNT  DUt  TO  DILATION 
D(JIU)  = "DAMAUt"  (Stt  TtXT) 


lt(JlD.Lt.O)  GOTO  300 

. ......... — OPT  NORMAL  STRPSS  PIRST  --- 

UN(JID)=UN( J1D)+DUN 
SNOLO=SN( JIO) 

It ( .NOT. RIGID)  GOTO  10 

SN(JID)=STRN 

GOTO  IS 

10  SN(Jll))=tSN(UN(J10)  ) 

SIKN=SN( JlD) 

IS  SNAV=O.S»(SNOLD+SM JlD) ) 


ROM  POR  THt.  SHtAK  STRPSS  -- 


-PLASTIC  IwCRPMPNTS  tlHST 

SSNPM=SS(J1D)+AKS*DUS 

-CHtCK  POR  UNLOADING 

IP(SIl.N(  1 . 0,SNNt  M ) .NP. SIGN  ( 1 .0,  DUS)  ) GOTO  So 
-MUST  HP  LOAD l NG”-“ 

-CHtCK  IP  HPLOm  V1PLD 

SSM  A XsSN  A V A 1 AN ( P H l H * UPGR  AD ) 

1P(AHS(SSNPM) .Lt.SSMAX)  GOTO  SO 
-Mt  MUST  bt  IN  PPAK  KPGIOn 

-APPAHt.Nl'  SMtAH  D1SP  (AS  PAR  AS  CUKVt  IS  CONCt  HNPD ) ■ 


I 
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USAPP=t)(  J ID) /SNA V ♦DUS 

C MAGNITUDE  lit  STRENGTH 

SSADD  = FSS(.USAPP,SNAV  ) 

SSPR=SSMAX*SSADU 

C CHECK  IK  Ht  KXCttD  STH1NGTH 

lFlAHS(SSNEW) .LE.SSPK)  GUTl)  SO 

C Its,  REDUCE  SHEAR  STRENGTH  AND  ACCUMULATE  DAMAGE 

SSNEM  = SIGN(SSPK,SSNEi») 

IF(SSAOD.EO.O.O)  GUTU  SO 
D( JID)=D( J1D)»SNAV*AHS(UUS) 

C COMPUTE  VIRTUAL  NORMAL  DISPLACEMENT  DUE  TU  DILATION 

UNU(J1D)=UND(JIU)+AK0*(1  . O/SNAV-1 . 0)  *UUi> 

C NE n , FINAL  SHEAR  STRESS 

SO  SSI JID)=SSNEW 
S rHS-SSNEm 
RETURN 

c 

C INITIALIZATION 

G 

3u0  J J = * J 1 U 

SS(JJ)=0.0 
SNCJJ)=0.0 
USIJJ)=0.0 
UN l JJ 1=0.0 
UND(JJ)=0 .0 
310  DIJJ)  =0.0 
RETURN 
END 
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ll 


FUNCTION  FSS(US,SN) 

C 

C "HUMP"  ON  STKESS/STHA 1 N CURVE 
C (NORMALIZED) 

C 

COMMON  / F R I C / PH  I B , AKS , AKN , AKD , A JRC , DECK AD 
DIMENSION  <(11) 

DATA  < /U.  0,0. 32,0. t>l  ,0.82,0.94, 1 .0,0. 93,0. S4,0. 14, 

. 0.02,0.0/ 

DATA  NP  /10/ 

C SCALE  D1SP,  SO  THAT  MAX  DISP  = NORMAL  STKESS  

SCL=SN 

C CHECK  FOR  END  OF  CURVE — 

IF(US.GE.SCL)  GOTO  100 
USSCL=US/SCL*FLOAT(NP) 

IGRF=USSCL+1 .0 
IGRF=MIN0(1GHF,NP) 

Y I N T = Y ( IGRF)f(USSCL-FLOAT( IGKF-1 ) )*( 1 ( I GRF  + 1 ) - < ( IGRF ) ) 

C SCALE  STRESS  ACCORDING  TO  HARTON ' S FORMULA 

YMAX^SN*(TAN( (AJRC*ALOG10( 1 . 0/SN ) +PH I B ) *DEGH AD ) 

. -TAN(PHIB*DEGRAD) ) 

FSS=Y1NT*YMAX 
RETURN 
10U  FSS  = 0 * U 
RETURN 
END 


non 


FUNCTION  FSN(UN) 

CUNMON  / K H I C / FHIP.AKS.AKN 


LINt.AK  NUHMAL  STH ESS / D 1 SPL, ACEH ENT 

ESN-AKNAUN 

RETURN 

ENU 
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APPENDIX  XV L I.IST INC.  OK  PROGRAM  DBLOCK  AND  LIST  OF  FORTRAN  NAMES 

NMAX  maximum  number  of  nodes 

MMAX  maximum  number  of  zones 

1MAX  maximum  number  of  zones  about  a node 

I FLAG  indicator  of  type  of  input  provided 

KTOT  = number  of  4-zone  cells  in  the  generation  of  a regular 
columnar  mesh 

LCONT  - number  of  initial  contacts 

X(N),  V (N)  = coordinates  of  node  N 

XD(N),  YD (N)  velocity  components  of  node  N 

N - node  number 

M zone  numtier 

I = index  designating  ordering  of  zones  about  a node 

J index  designating  ordering  of  nodes  about  a zone 

XX  (M)  , YY (M) , XY (M)  = stress  components  in  zone  M 

AM  (M)  mass  of  zone  M 

GPM(N)  = grid  point  mass  of  node  N 

LAME1  (M)  , LAME'J  (M)  - Lame  constants  in  zone  M 

COKES (M) , TANPHI(M),  TANPSI (M) , - plastic  parameters  in  zone  M 
MAN ( N , 1 ) = i 1 zone  about  node  N 
NAM  (M,  J)  - J*  ''  node  about  zone  M 

IMP  (L)  , IMD(L),  N^M(L),  NlM  (L)  see  adjacent  figure 

XNC  (L)  - mass  of  impacting  node,  if  isolated;  zero  otherwise 


local  names  for  contact  l 
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STNI.  contact  stiffness  (loading) 

STNU  contact  stiffness  (unloading) 

1'N  maximum  normal  displacement 

STSH  - shear  stiffness 
XMU  coefficient  of  friction 

NITKK  maximum  number  of  iterations 

FRAC  fraction  of  critical  time  step 

ORAV  gravity 

KMIN,  FM1I)  lurameti'!  s tor  at  i t t ness-pi  opoi  t ional  damping 
ARAT  minimum  aspect  ratio 

TFRAC  parameter  for  "tickling" 

NPRI  number  of  iterations  between  printed  outputs 

NPLOT  number  of  iterations  between  points  in  plotted  history 

SCALEX , St' ALKY  scales  for  mesh  plots 

ITPL(I)  iteration  numbers  at  which  mesh  plots  are  requested 
N BLOCK  number  of  blocks 

SCALE  scale  for  plot  of  computer  generated  mesh 

NCORN  number  of  corners  defining  the  block 

LIST(  1,1)  I*'1  corner  of  block  l 

AMAXL  maximum  edge  length  desired 


r 


1 1 : 24:b4 
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KUKTKAN  1V-PLUS  V02-04G 
U BLOCK • F In  /IK : BLOCKS/ KK 


0001 


0002 
000  J 
0004 


000b 


000b 

0007 


0008 

0009 

0010 
0011 


PRUGK AM  D BLOCK 


C 

C OK  1 V 1 NO  ROUTINE  FUR  Tht  PROGRAM 

C 


INCLUDE  ' COMMUN . FTN 1 
REAL  LAME1 , L A M E 2 

COMMON  /CGK1L)/  X170) ,Y170) ,XD170) , YD170) ,GPM(70) , 

XNFMC70) , YNPH170)  , 

XX170J,YYC70),XY170) ,DXXFV(70> , DY YFV ( 70 ) , DXYFV ( 70 ) , 

AM ( 70) , RHUC  70) , LAME1 ( 70) , LAME2C70) ,CUHES( 70 ) ,1ANPH1170), 
TANPS1C70) ,MAN(70,10) *NAM(7u,3) 

COMMON  /COTHR/  DT, NITER, AKA  I, GRAV , ITEK,NMAX,MMAX, 1MAX,T1ME, 
ZEkO, NPKI  , L CUNT,  1 *■  L AG , K TUT , NBUF , NPL , NPLOT , I TPL ( 1 0 ) , 

SC ALEX , SCALEY 

COMMON  /CPLOT/  BUF 1 ( 202 ) , BUF2 t 202 ) , BUF3 C 202 ) 

COMMON  / C 1 M P C / 1MP( 10) , 1MD(10) , 1FL( 10) , 1MZ110) , IFG(IO)  , 
1FR(10),N2M(10),N3M(10) ,MMM(10) ,N4M(10) ,TULC(10) , 
STNL,STNU,STSH, XMU , TOL , BUT , BDT1 ,C0N1 ,CON2,TFKAC, 

FNC  10)  ,FS(  10)  , URN (10)  , URS 110)  ,DRST(10)  ,XNC110)  , YNCUU)  ,DN 
CALL  SETUP 
CALL  CYCLE 
STOP 
End 


PROGRAM  SECTIONS 
NAME  SIZE 


$ CODE  1 

0 0 0 0 b 4 

22 

S 1 D A T A 

000002 

1 

CGHID 

0 lb374 

3710 

COTHR 

00O1  10 

3b 

CPLOT 

0 0 4 b 7 0 

1212 

C1MPC 

00  1 0b4 

28  2 

ATTRIBUTES 

Kn ,1 , CON , LCL 
KM  ,U,CON , LCL 
KM  ,D,UVR ,GBL 

Kn  ,d,ovr,gbl 

KM  , D , UVK , GBL 
RM  , U , 0 V K , GBL 


TOTAL  SPACE  ALLOCATED  = 02443b  b2b3 
NU  FPP  INSTRUCTIONS  GENERATED 


,L1ST.LST/LI S l/-SP=DBLOCK 


V ■»?*-Mi  - >g 
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FUKTKAN  1V-PLU6  Vo^-O«*v» 


1 1 : 24:b9 


iS-MAK- 7b 


PAGt  1 


SETUP.*  TN 
0001 


0002 

0003 

0004 


000b 


000b 

0007 


/ IKS  HLUCKS/KR 
SUbKOUT  1 NE  SETUP 


INPUT  RECtPTlUN  AND  HANDLING 


INCLUDE  ' CUMMON . K TN ' 

REAL  LAME1,LAMC2 

COMMON  / C G R 1 0 / X(70)  ,Y(70) ,XD(70) , YUC70) ,GPM(70) , 

. XNPHC  70) , YNPH(70)  , 

. XX<70) , YYl 70) , XY (70) ,DXXKV(70) ,DY Y*  V(7u) ,DAYFV (70) , 

. AM (70) ,RHO(70) , LA  MCI (70) , LAME2(70) ,CUNES( 70) , T ANPH I ( 7u ) , 

. TANPSK70)  , MAN (70, 10)  , NAM l 7 0,3) 

COMMON  /CUTHR/  DT,NI TER, AKAT,GRAV, ITER, NMAX,MMAX,IMAX, TIME, 

. ZEK0,NPH1 , LCUN  T , 1 Kl,  AC , KTUT  , NbUF  , N PL , N PLOT , 1TPLI 10) , 

. SCALEX , SCALEY 

COMMON  /CPLOT / HUH (202) ,BUF2(202) ,HUF3(202) 

COMMON  /C1MPC/  IMP(10),IMD(10),1FL110),1MZ(10),1FG(10) , 

. 1FK( 10) ,N2M( 10) ,N3M( 10) ,MMM( 10) ,N4M( 10) ,TuLC( 10)  , 

. 6TNL,STNU,STSH,XMU,TUL,bDT,bL>Tl  ,CUNl  ,CUN2,TFKAC, 

. FN( 10) ,FS( 10) ,DRN( 10) ,OKSUO) , DR£*1 ( 1 0 ) , XNC ( 1 0 ) , Y NC ( 1 0 ) , ON 


ooo« 

AREA3(Xl,Yl ,X2,Y2,X3,YJ)  = -0 . b* ( ( Y 1 ♦ Y2 ) * ( X2-A 1 ) ♦ 

. (Y3  + Y2)nX3-X2mYl*Y3)»(Xl-X3)) 

0009 

NC  AD 

1000, 

NMAX,MMAX,1MAX,  IFLAu , MUT , LCUNT 

001  0 

PRINT 

2000, 

NMAX,MMAX, IMAX 

0011 

IK  (IFLAG  . 

EO.  1)  GO  TU  12 

0012 

IK  (IFLAG  . 

EU.  0)  GO  TU  18 

001  J 

CALL 

MCSH 

0014 

GU  TO 

7 

001b 

lb 

DU  19 

N=  1 , N M A X 

001b 

19 

Kfc.AU 

1001  , 

X(N) , Y(N) ,XD(N) , YD(N) 

0017 

PRINT 

2001  , 

(N,X(N),»(N),XD(N),Y0(N),N=1,NMAX) 

001b 

DU  1 1 

M = 1 , M M A X 

0019 

1 1 

NC  AD 

100b, 

XXlM),YUM),XVlM),KHOlM>.LAMLHM),LAMt<!lM), 

. 

CUHES  ( M ) , l'ANPHl(M)  , TAN  PS  I (M) 

0020 

PRINT 

2002  , 

(M,XX(M)  , Y Y t M ) ,XY(M) , RHO ( M ) , LAMt 1 ( M ) , LAMC2  ( M ) , 

, 

CUHES(M)  , T AN  Ph 1 (M) , T ANPS 1 (M) , M = 1 , MMAX) 

00  21 

DU  1 

N=  1 , N M A X 

0022 

1 

Kt-AD 

1003, 

( M AN ( N , I)  , 1 = 1 , 1 M A X ) 

002  4 

PRINT 

2003 

0024 

DU  2 

N = 1 , N M A X 

002b 

2 

PRINT 

300  J , 

N, ( MAN ( N , 1) ,1=1 , l MAX) 

002b 

READ 

1004, 

( (NAM(M,J) ,J=1 , 3) , M = 1 ,MMAX) 

0027 

PRINT 

2004, 

(M, (NAM(M,J) ,J=1 ,3) ,M=1 ,MMAX) 

002H 

7 

RC  AD 

100b, 

(IMP(L) ,N2M(L) ,N3M(L) ,XNC(L) ,L=1 , LCUNT) 

0029 

PRINT 

200b, 

LCUNT, (L,1MP(L),XNC(L),N2M(L),N3M(L),L=1 , LCUN1 ) 

00  30 

Rt-AD 

1001  , 

STNL,STNU,DN,STSH, XMU 

0031 

PRINT 

2009, 

STNL.STNU  , DN  , STSh  , XMU 

0032 

GU  10 

1 3 

0033 

1 2 

CALL 

INPUT 

0034 

1 3 

Re.  AD 

1002, 

NITER,FRAC,GRAV, ARAT,TKRAC,NPK1 ,NPLU1 

003b 

PRINT 

2UOb , 

NITER, K RAC# GRAV , A R AT ,T  * RAC 

00  Jb 

RC  AD 

1 000  , 

(1TPL(1) ,1=1,10) 

003  7 

PRIM 

2010, 

( ITPL( 1 ) , 1=1 , 10) 

0038 

RC  AD 

1001  , 

SCALCX , SCALEY 
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StTUP.FTN  / 1R  : HLOCRS/ MR 

003 V PRINT  2011,  SCALLX.SCALtY 

0040  Rt  AO  1001,  RMIN.FM1N 

0041  PRINT  2012,  KM1N , F M 1 N 

C INITIALIZATIONS  

0042  UU  3 N - 1 , N M A X 

0043  XNPHCN)  a XIN) 

0044  3 YNPHCN)  a YCN) 

C 

004b  IF  ( LCONT  .t(l.  0)  00  TO  6 

004b  00  4 Lai, LCONT 

0047  GPM(IMPCL))  = XNCCL) 

0040  OKNCL)  a 0 

004V  ORSCL)  = 0 

OObO  XNCIL)  = 0 

OObl  YNCCL)  a 0 

00b2  FNCL)  =0 

00b3  FSCL)  = 0 

00b4  4 ORSTCL)*  0 

OObb  0 NPL  = 0 

OOSb  ORNPH=  0 

00b  7 ORSPHa  0 

OObB  OS  = 0 

OObV  ZtKO  a 0 

OOBO  P X 2 = B.»ATAN(1.) 

C COHPUTt  CRITICAL  TINt  STtP 

00B1  OT  = 1 • L20 

OOB  2 00  20  N a X , N M A X 

00B3  00  lb  1 = 1 , 1 M A X 

00B4  M a HAN  (N,l) 

006b  IF  CM  .til.  0)  GO  TO  20 

OObb  NN  a NAMCM.2) 

0067  IF  CNAMCM,  1 ) .tel.  N)  NNaNAH(M,3) 

OObB  IF  CNAMCM, 2 ) .to.  N)  NN=NAMCM,1) 

OObV  OS  a CXCN)-XCNN  ) ) *»2+CUN)-Y  CNN)  ) *»2 

0070  MM  a MANCN.I+l) 

0071  IF  CMM  .til.  0)  MM  = MANCN,1) 

0072  V MS  = CLAMtl C M ) ♦ 2 • 4LAML2CM) )/KHOCM) 

0073  V M MS  a (LAMtl (MM)  + 2.*LAML2CMM) J/RHOCMM) 

0074  OTN  = SDK T C OS/ AM A X 1 C V MS , V MMS ) ) 

007b  OT  = AM  1 N 1 C DT  , DTN  ) 

007b  lb  CON T 1 NU t 

0077  20  CONTINUt 

007B  FRtO  a 2 , * AK AT 

007V  OT  a 0T»AM1N1 CFRtD , 1 . ) *FRAC 

OOBO  PRINT  200B.DT 

C COMPUTt  ZONt  MASStS  

00 B 1 00  40  Mal.MMAX 

0082  40  AM  C M ) a RHO C M ) » AR t A 3 C X C N AM C M , 1 ) ) , Y C N AM C M , 1 ) ) , X C N AM c M , 2 ) ) , 

. YCNAMCM,2)),XCNAM(M,3)),Y(NAM(M,3))) 


OOB  3 OU  10  N= 1 , NMAX 

0084  GFMP  a 0 

OOBb  00  b 1*1 , I M A X 

008b  M a MANCN.I) 

0087  IF  CM  .to.  0)  GO  TO  10 

0088  b GPMP  a GPMP+AM  C M ) 


k4*~1  '•••  i * * - 
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SETUP. FTN  /TR : BLOCKS/ NR 


00b9 

0090 

10 

GPM(N)  = GPMP/3. 

PRINT  2007 , (N,GPM(N) ,N=1 ,NMAX) 

c 

0091 

ALPHA 

= PI2*RMIN«FMIN»DT/2. 

0092 

CUM 

= 1. -ALPHA 

0093 

CON  2 

= 1 • / ( 1 • +ALPHA ) 

0094 

BETA 

= RMIN/(P12*FMlN) 

009b 

BUT 

= BETA/DT 

009o 

auTi 

= l.+BDT 

L " 

0097 

If  (If LAG  .to.  1)  RETURN 

009b 

DU  bO  L 

=1 , LCONT 

0099 

XfLlL) 

= 0 

0100 

1 P G ( L 3 

= 1 

0101 

CALL  CKEATE(L) 

0102 

bO 

CONTINUE 

0103 

KETUKN 

0104 

1000 

FORMAT 

C b 1 1 0 ) 

010b 

tool 

FUKMAT 

CbFlO.O) 

010b 

1002 

FORMAT 

U 10, 4F 10.0,2 110) 

0107 

1003 

FORMAT 

(1015) 

010b 

1004 

FORMAT 

(315) 

0109 

100b 

FURMAT 

(9Fb.0) 

0110 

100b 

FORMAT 

(3110, F 10.0) 

0111 

2000 

FORMAT 

('OMAX  NUMBER  OF  NODES 

= ' I b,/ 

' MAX  NUMBER  OF  ZONES 

= ' lb,/ 

' MAX  NUMBER  OF  ZONES  ABOUT  A NODE 

= ' lb) 

0112 

2001 

FOKMAT 

(//'  NODE  DATA'//5X, 'N' ,bX, 'X' ,11X, 

' Y ' , 10X,  ' XD'  , 

10X , ' ID  1 ,/( IX, 15, 1P4E12.4) ) 

0113 

2002 

format 

(//'  ZONE  DATAV/bX,  *M' ,5X, 'XX' ,10X 

, ' Y Y ' , 10X,  ' XY ' , 

10X,'AM',9X,' LAME1 ' 7X, ' LAME2 ' 7X, 'CUHES' 7X, ' TANPH1 ' 

bX, 'TANPSl'/(lb,lP9E12.4)) 

0114 

2003 

FORMAT 

(//'  ZONES  SURROUNDING  EACH  NODE ' / / 5X , ' N ' , SX , ' 1 ' , 

5X  , ’ 2 ' , bX  , ’ 3 1 , 5X  , ' 4 ' , bX  , ' 5 ’ , 5X  , ' b ' 

bX, '7' ,SX, ' W 1 , 

bX, '9' ,5X, ' 10'  ) 

011b 

3003 

FORMAT 

(IX, 111b) 

011b 

2004 

FORMAT 

(//'  NODES  SURROUNDING  EACH  ZONE ' / / bX , ' M ' , bX , ' 1 ' , 

bX, ' 2' ,bX, ' 3 ' ,/(4Ib) ) 

0117 

200b 

FORMAT 

(//'  CONTACTS  ESTABLISHED: ' 13 

//•  CONTACT  IMPACTING  IMPACTING' 11X, ' BETNELN ' 

/'  NUMBER  NODE  MASS 

11X, 'NODE  AND  NODE 

/(3X,13,7X,13,7X,lPE12.4,7X,I3,bX 

13)  ) 

oiib 

200b 

FURMAT 

(//'  NUMBER  UF  ITERATIONS 

= ' 15, 

/'  FRACTION  OF  CRITICAL  TIME  STEP 

=' 1PE12.4, 

/'  ACCELERATION  UF  GRAVITY 

=' 1PE12.4, 

/'  MINIMUM  ASPECT  RATIO  OF  ZONES 

=' 1PE12.4, 

/'  TOLERANCE  / ZONE  LENGTH 

= ' 1 PE 12.4) 

0119 

2007 

FORMAT 

(//■  GRID  POINT  MASSES'//SX, 'N'4X, ' 

MASS' 

# 

/ ( lb , 1 PEI  2.4)) 

0120 

200b 

FURMAT 

(//'  TIME  INCREMENT  ='1PE12.4) 

0121 

2009 

FORMAT!//'  CONTACT  PROPERTIES' 

//'  LOADING  NORMAL  STIFFNESS 

=' 1PE12.4, 

/'  UNLOADING  NORMAL  STIFFNESS 

= ' 1 PEI  2.4, 

# 

/•  MAX  RELATIVE  NURMAL  DISPLACEMENTS'  1 PEI  2 , 4 , 

. 

/'  SHEAR  STIFFNESS 

=' 1PE12.4, 
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KUKTKAN 

IV-FLUb  V02-04C 

1 1 : 24 : bv  2y-MAk-7b 

PAGK  4 

vShl'UF.MjW 

/ TH : BLUCK5/ 

. / ' 

CUfciUCltNT  OK  KKICTIUN 

— 1 

1 Pi  12.4) 

01  22 

2010 

fcUHMAr  c//' 

MK6H  PLOTTLl)  AT  1TKHATI0N6 

— 1 

Ublb)  ) 

0 1 23 

201  1 

fc’OKM  AT  (//' 

SCALfc  KUK  PLOTTING : X-D1RKCT10N 

— | 

1 1PK12.4, 

. / ' 

T-UINKCT1UN 

= ' 

1 1PK12.4) 

0124 

2012 

fcUHMAT  (//' 

KAYLtiGH  DAMPING  P A P A M t T t K 6 ' 

. / ' 

PtKCENT  damping 

= ' 

2PK12.4, 

. / ' 

AT  YKfcUUKNCY  1 H £ ) 

= ' 

1 1PL12.4) 

012b 

2 100 

fcUKMAT  (//' 

NO  SPACt  TO  STOMt  Ntw  LINK  --  JUb 

AHOKTLD ' ) 

012b 

fc.NL) 

FKOijN  A M 

SCCTlUNvS 

NAMfc 

SIZE 

ATTKlBUTtS 

$ C 0 D fc.  1 

00b2bb 

1371 

Kw , 1 , CON , LCL 

S FDA  l' A 

ouOO 10 

4 

K W , 0 , CON , LCL 

$11)  AT  A 

00  2b  34 

7 1b 

K« ,0, CON, LCL 

$V  AKS 

00010b 

3b 

KW  , L) , CON  , LCL 

$TtMFS 

000010 

4 

K w , L) . CON  , LCL 

CtiHID 

0 1 b 3 7 4 

37  10 

Ha  .D.OVH.GBL 

CUTHK 

000110 

3b 

Ka  ,D,OVk,GbL 

CP  LOT 

004b  70 

1 21  2 

Kt*  .D.OVN.GbL 

Cl  MFC 

0 0 1 0 b 4 

2 b 2 

HK  ,d,ovk,gbl 

1'OTAL  6PACL  ALLOCATLL)  * Uj4t>30  7 372 

, LIST.  1,61/ Li  : I/-6P=6tTUP 


1 1 : 2 b : 4 b 


2N-MAK-7« 


PALI  1 


EURTHAN  IV-PLUS  VU2-04U 
CYCLE. ETn  / In:ULOCKS/wk 


000  1 


0002 
000  J 
0004 


000b 


0 0 0b 

000  7 


OOOH 

oooo 
0010 
0011 
0012 
00  1 J 
00  14 

00  1 b 
001b 

001  7 
0010 
0010 
0020 

002  1 
0022 
002  J 


SUBROUTINE  CYCLE 

c * 

C DKlVlNo  ROUTINE  EUR  THE  COMPUTATION  CYCLE  » 

c * 

INCLUDE  ‘COMMON. ETN' 

KtAL  LAME1.LAME2 

COMMON  /COR  ll)/  X ( 70  ) , Y (70  ) , XOl  70  ) , YLH  70  ) , UPM1  70)  , 

. XNl’Hl  7u  ) , YNPHl 70 ) , 

. XX170),YY170),XU70),UXX1V170),1>YYEV17U),DXYEV170), 

. AMI  701 ,KHO(70) ,LAME1(70) .LAME21 70) .CUMESC70) .TANPM117U) , 

. TANPSI  l 70)  ,MAN(  70 , 10)  , NAM  (70  , J ) 

COMMON  /COTHK/  DT , NITEK , ARAT ,UKAV , ITEM , NMAX , MM AX , 1MAX , TIME, 

. ZERO.NPRI , l, CONT,  IE  LAO,  MOT,  NHU1  , NHL  , NPLUT  , IT  PL  l 10)  , 

. SCALEX , SCALEY 

COMMON  / CPLOT / BUF 1 l 202 ) , BUE2 l 202 ) , BUE1 1 202 ) 

COMMON  /C  1 MFC/  IMPllO)  , 1MDI  10)  , IKLl  10  ) , IM21  10)  , I EC  l 10)  , 

. lER(10),N2M110),NiMll0).MMM(10),N4Mtl0), TOLCl 10) , 

. STNL.STNU , STSM, XMO , TOL, BDT, BDT1 ,C0N1 ,C0N2 , T1 RAC, 

. EM  10), ESC  10) , DKNllO) , DKSl 10) ,DkST( 10) ,XNC(10) , YNCllO) ,DN 
CALL  PLOTS! (0.02b, 'CM' ) 

DO  100  ITEK=1. NITEK 
CALL  OUTPUT 
CALL  MOTION 
CALL  STRESS 
TIME  = riME+DT 
100  CONTINUE 

CALL  OUIPUl 
-KITE  12)  BUE1 
WHITE  12)  Bill  2 
WHITE  14)  BUEJ 
WHITE  14)  HUE  2 
CALL  PLOTIO.,0., J) 

CALL  PLUTND 
HE  1'UKN 
END 


PKOOKAM  SECTIONS 


NAMK 

S 1 Zt 

A I’TKltJU  It 

SCODti 

000.110 

i ou 

K" , l » CUN t LCL 

$ FI)  AT  A 

000020 

h 

K*  ,[)  , CUN  , LCL 

$ I FA TA 

UOOObO 

20 

KW ,0, CON, LCL 

•T EMPS 

000002 

1 

K m , l) , CON  , LCL 

CCtKIU 

Olbl  /4 

J 7 1 U 

KW  ,1>,UVH,LBL 

COTHR 

0001  10 

Jb 

Kn  ,1),UVH  ,LbL 

CFLOl' 

004b  70 

1212 

H*  , i> , OV  tf  , LBL 

C 1 MFC 

00 1 Ob4 

2*2 

KW  ,l),UVK  ,CBL 

TOTAL  SPACE  ALLOCATED  = 024  7b2  b.lbO 
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KUKI'kAN  IV-PLUS  V02-O41. 

Mur  ion  . m'n  / tk  : blocks/  wk 


i 1 : 2b:b7 


24-mak-  78 


PAot  1 


0 0 0 1 


0002 
000  J 
0004 


000b 


ooot> 

000  7 


6UBKUUTINL  MOTION 


MOMENTUM  BALANCt  IN  CUNT1NUA 


INCLUOfc  1 COMMON. M'N' 

KtAL  LAMt.l,LAMt2 

COMMON  /CGMU/  *170) ,Y 170) , XD170) , YIM7U) ,UPMl70) , 

. XNPHl 70) , YNPHC  70) , 

. XXl70),YYC70),XYl70),l)XAPVl7U),DYYfV(70),DAYfV(70), 

. AMI  70)  ,RHOl  70)  .LAMM  170)  ,LAMt2170)  ,CUHLS(70)  .TANPHK70)  , 

. l'ANPSll70),MANl70,10),NAM(70,3) 

COMMON  / C 01 H N / UT.NITLK, AKAT.GKAV, 1 TtK , NM AX , MM AX , IMAX.TIMt, 

. ZLM),  NCR  I , LCUNT  , If  LAO,  MOT,  NrtllK  , NPL  , Nl’LUT,  11  PL  l 10  ) , 

. bCALt.X  , SCALtt 

common  /CPU)!'/  BUM  l 202  ) , BUf 2 l 202  ) , BUf  J l 202  ) 

COMMON  /C1MPC/  1MP110)  , 1MD(  10)  , 1PL(  10)  , IMiUO)  , 1101  10)  , 

. lf'KllO),N2Mll0),NJMll0),NMM(10),N4MC10),  l'OLCl  10  ) , 

. 6TNL.S  TNU ,ST5H  , XMII , TllL  , BUT  , BUTl  .CONI  , CON  2 , TKK  AC  , 

. f NC  10  ) ,fSl  10)  , OMNI  10  ) , DKSC  10)  ,OKST(  10)  , XNC110  ) , YNCl  10)  , l)N 


0008 

Common  /shkak/  KxsuM,KYbUM 

U 0 0 V 

KXMJM  = o 

0010 

fYSUM  = 3 

oo  1 1 

OU 

100  N=  1 , N M A X 

0012 

U 

. Lf.  . 

0)  GU  TU  100 

00  1 J 

K X 

= 0 

0014 

K Y 

- 0 

00  1 b 

i)0 

VO  Ul,  l M A X 

001  o 

M 

= MAN  l N , 1) 

001  7 

u 

IM  .fcO.  0)  GU 

TU  VO 

0018 

If 

Y N . Nf. . N AM  ( M 

, 1 ) ) GU  TO  10 

00  1 M 

ox 

X t NAMIM , J ) )-Xl NAM1M, 2) ) 

00  20 

0 1 

- Y INAMM, J) )-Y 1NAMIM.2) ) 

00  21 

v*U 

10  3 0 

00  2 2 

10 

If 

IN  . Nf. . NAMlM 

, 2 ) ) GO  TO  2 0 

00  2 3 

OX 

= A l NAM  IM,  1 ) )-X  l NAMI.M  , J ) ) 

00  2 4 

OY 

- Y(NAMIM,1))-IINAMIM,J)) 

00  2 b 

v»  ( ) 

TO  30 

0020 

20 

OX 

= XlNAMlM,  2)  1-XINAMIM,  1 ) ) 

0027 

OY 

= YINAMIM, 2) )-Y INAMCM, 1 ) ) 

00  2 N 

30 

f X 

= KX+XXCH) ♦DY-XY l M ) ♦OX 

0020 

K Y 

= FY  + XYCM)»l)Y-YYlM)*OX 

00  JO 

‘JO 

CUN  1 INUt 

00J1 

Vb 

f X 

= KX/2. 

00  J2 

K Y 

= f'Y/2. 

00  JJ 

IK 

(N.Ll.2b  .(IK. 

w.Gl.29)  GO  TU  Vo 

00  J 4 

f'XbUM  = K X S U M ♦ K X 

003b 

f YSUM  = K Y S U M ♦ K Y 

Oo  Jo 

Vo 

CUN riNUt 

OU  1 J 

ACCX  = tX/GPMlN) 
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EOKTKAN  1V-PLUS 

V0;-040 

1 1 : ^ t> : t.  ^ 

i9-MAK-  /d 

PACE 

MOT  ION  . I-  TN 

/ IK : hLOCKS/ MK 

00  3 H ACCY  = KY/0PMlN)-oKAV 

0039  X LH  N ) = XL)  C N ) t ACC  X *l)T 

0040  YDIN)=  YDl  N ) ♦ ACCY  *l)T 

0041  100  CONTINUE 


C 

AND  BOLD 

YUAN  Y 

CUND1 T1UNS 

00  4^ 

It  ilhUl. 

.NE.  1) 

CALL 

IN  1 bAC 

0043 

CALL  HOUND Y 

0044 

It  1 It  LAo 

•Nt.  1) 

CALI. 

INTKA1 

00  4b  CALL  HOUNDY 

C ix  E M CUUN01NA TEb 

00  4b  l)UUON=l#NMAX 

00  4 7 XN  = XlN)tXOlN)*l>T 

0 0 4 K Y N = YLN)tYl)LN)*l)T 

0049  XIXPMIN)  = O.S*(X(N)*XN) 

00  bO  Y NPM  IN)  = 0.  b*(  Y (N)*YN) 

00b 1 XLN)  = XN 

00b  ; UN)  = YN 

00b)  110  CUNT l NUE 

00  b4  KEl'UNN 

00 bb  END 


PH OC.K  AM  SECTIONS 
NAME  SIZE 


SCOPE 1 

oouoo 

i 40 

S IDA  TA 

OOOOOJ 

1 

$ V A K S 

0 0 0 0 4 0 

1* 

$ TEMPS 

000004 

i 

COKID 

OloJ  74 

il  10 

COTHK 

0OO 1 1 0 

Jo 

CPLOT 

0 0 4 b 7 0 

wi; 

C1MPC 

001004 

SHEAR 

000010 

4 

TOTAL  SPACE  ALLOCATED  = 


A TTN 1 BUTES 

k w , i , Con , lcl 

K*  ,D,CUN  , LCL 
Km  , D t CON , LCL 
KM , D » CON , LCL 
KM ,D,UVK ,UBL 
KM ,D,UVK#UBL 
KM  # l> , 0 V K , CbL 
K» ,D,UVK,GDL 
KM ,0,UVK, CHL 


0 ; b 7 1 4 bbOb 
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BOUNUY.FTN  /TR:bLUCNS/WK 


OOOl 


0002 

0003 

0004 


000b 


000b 
000  7 


000b 
0004 
0010 
001  1 
0012 
001 1 

0014 
001b 
001b 
001  / 
OOlti 
0014 
0020 
0021 
0022 


SUBROUTINE  BOUNUY 

c » 

C bOUNOANY  CONDITIONS  * 

c » 

INCLUDE  1 COMMON • F TN ' 

REAL  LAME 1 , LAME2 

COMMON  /COKID/  X(70) ,Y C70) ,XDl70) .YD170) ,GPMl7o) , 

. XNPH170) ,YNPH(70)  , 

. XX(70),YY(70),XY170) .DXXFVC70) ,OYYFV( 70) ,DXYFV( 70) , 

. AM(70),KHU(70),LAMbl( 7 0 ) , LA  ME  2 l 70 ) , CORES! 70 ) , TANPH H 7 0 ) , 

. TANPS1 (70),MAN170,10),NAM(70,J) 

COMMON  /CUTHH/  UT,N11'EH,AHAI,GNAV,1TEH,NMAA,MMAA,1MAX,T1ME, 

. ZERO  , NPR1  , LCUNT,  1FLAG.KT0T,  NbUF , NPL , NPLUT , ITPLl 10)  , 

. SCALEX , SCALE Y 

COMMON  /CPLDT/  bOFl (202) , HU F 2(202) ,bUF 31202) 

COMMON  /C1MPC/  1MPH0)  , IMD(  10)  , 1FH  10)  , IMZl 10)  , 11  Gl  10)  , 

. 1FKUO),N2M110),N3M11U),MMM(10),N4M110) ,TOLCL 10 ) , 

. STNL.STNU ,STSH , XMU , TOL , BUT, BDT1 , CON  1 ,CON2 , TEN AC, 

. FNUO)  ,FS(  10)  ,DKN(  10)  ,DRS(  10)  ,DRSTC  10)  , XNC  11 0 ) , Y NC  11 0 ) , ON 

C B01 TOM  BOUNDARY  FIXED 

XUI3)  = 0 
YUl 1 ) = 0 
YD ( 2 ) = 0 
YOU)  = 0 
Y D l 4 ) = 0 
YDlb)  = 0 

C TOP  BOUNDARY  RATHER  PECULIAR,  I’D  SAY  

FRbOA  = 0 
FREDB  = 0 

IF  LITER  • LT  • 100)  FREDb  = *0.1 
IF  UTER  .GT.  1000)  FREDA=-0.1 
DO  10  N=2b , 29 
XDlN)  = FREDA 
10  YDIN)  = FREDB 
Kb  TURN 
END 


PROGRAM  SECTIONS 


N AMh, 

SI  2b 

ATTRIBUTES 

SCUDtl 

000 1 bb 

b4 

RW  , I , CON , LCL 

SHOATA 

000004 

2 

NW ,D,CUN,LCL 

$ V AH»S 

00001 2 

b 

Rw , U, CON, LCL 

CC*H  II) 

0 1 b i 7 4 

3)10 

R w , D , OVN , GBL 

CUTHH 

0001  10 

3b 

RW  ,D,  DVR,  GBl, 

c^bur 

004b  70 

1212 

Rw,D,OVR,GBL 

Cl  MFC 

001 Ob4 

2B2 

Hw ,D,OVH , GBL 

TOTAL,  SPACE  ALLOCATED  = 024b(>4  bJOb 
,LIST.l,ST/Ll  : 1/-SP*H0UNUY 


F 
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FORTRAN  IV-PLUS  V02-04G 
INTRAC.FTN  / TN : BLOCKS/ MH 


1 1 :2b: 12 


20-MAK-7B 


SUbROUTINt  INTRAC 
INCLUOK  ' COMMON . FTN  ’ 

KFAL  LAMD , LAMF2 

COMMON  /COR  ID/  X(70)  , Y ( 70 ) , XD( 70 ) , YU l 70 ) , GPM ( 70 ) , 

. XNPH170) , YNPH170)  , 

. XX(70),YY(70),XY(70) .DXXFVC  70) , OYYFV l 70 ) , OX YF V C 70 ) , 

AM (70) ,RHU(70) ,LAMtl(70) , LAMt2(70) , COHFS ( 7 0 ) , T ANPH 1 ( 7 0 ) , 

. TANPS1 (70) , MAN (70 ,10) , NAM (70, 3) 

COMMON  /COTHR/  ur,  NIT  ILK,  A RAT,  ORA  V,  1TFR,NMAX,MMAX,  1MAA,T)MF, 

. ZtRO , NPK I , LCONT , I FLAG, MOT , hbUF , NPL , NPLOT , ITPL1 10) , 

. SC  ALFA, SCALD 

COMMON  /CPLOT/  BUF 1 ( 202), BUF2( 202), BUF 3(202) 

COMMON  /C1MPC/  1MP(  10)  , 1MD(  10)  ,1FL(  10)  ,1HF2(10)  , 11  G(  10)  , 

. 1FK(10),N2M(10),NJM(10), MMM( 10) ,N4M( 10) ,TULC(  10)  , 

. STNL.STNU ,STSH , AMO , TUL , BUT , BDT1 ,C0N1 , CON  2 ,11  RAC , 

. FN( 10) ,FS( 10) ,0RN(10) ,ORS( 10) ,DRST( 10) ,XNC( 10) , YNC( 10) ,0N 
COMMON  /1NTRA/  FLAG(IO) 

ARFA3(X1,Y1,X2,Y2,X3,Y3)  = -0 . SO* ( ( Y 1 ♦ Y 2 ) * ( X2-X1 ) ♦ 

. (Y3*Y2)»(X3-X2)+(Y1+Y3)»(X1-X3)) 

VFL0C1TY  COHKFCTIUN  OUt  lU  CONTACT  FOKCFS  


00  SO  L=l, LCONT 
IF  (IFG(L)  .NF.  1)  GO  TO  SO 
IF  IIFR(L)  .Nt.  0)  GO  TO  SO 
N 1 = IMP(L) 

NR  = 1MD(L) 

= N2M(L) 

N3  = N 3 M ( L ) 

IF  (1FL1L)  .KG.  0)  GO  TO  30 
IF  (ORST(L) ) 20,30,10 
N 2 s NR 

GO  TO  30 

N3  = NR 

XND  = YNPH(N2)-YNPH(N3) 

Y NO  = ANPM(N3)-XNPH(N2) 

FHKO  = SGRT(XNU*AN0+YNU»YN0) 

XNO  =■  XND/FRFO 

YNO  = YND/FRFD 

Ctl  = YNO*YNC(L)*ANO*XNC(L) 

C 1 2 = YNO*XNC(L)-ANO»YNClL) 

FNP  = C11»FN(L)+C12*FS(L) 

FSP  =-C12»FN(L)*Cll*FS(L) 

BOT  2 = bori 

IF  (AbS(FSP)  .Gt.  0.00*XMU*ABS(FNP) ) B0T2=1. 
FNP  = FNP*BUT  1 

FSP  = FSP* BOT 2 

XO  ( N l ) - X0(N1  )*(FNP*XN0-FSP*YNU)*UT/GPM(N1  ) 
Y0(N1  ) = Y01N1 )+(FNP*YNU+lSP*XN0)*0T2GPM(Nl ) 
XO(NR)=  XD(NN)-(FNP*XNO-FSP*YNU)*DT/GPM(NK) 
YO(N*  ) =:  Y0(NR)-(FNP*YN0*1SP*XNU)*DT/GPM(NR) 
XNC(L)=  XNO 
YNC(L)-  YNO 


A 
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INT8AC.ETN  /T8: BLOCKS/ 88 

0040  KNlL)  — ENP/BDT1 

0041  KS(L)  = 1 SP/BUT2 

0042  bO  CONTINUE 

0043  8ETU8N 

0044  END 


P8UG8AM  SECTIONS 


NAME 

SUE 

ATT81BUTES 

SCODE1 

0010b4 

27« 

88 , 1 .CON, LCL 

SVA8S 

O000S2 

2 1 

8 k ,0, CON, LCL 

stemps 

000002 

1 

88 ,0, CON, LCL 

CG8ID 

010374 

3710 

8K,D,UVH,GBL 

COTH8 

0001  10 

36 

88 , 0 , 0V8 , GBL 

CPLI7T 

004b  70 

1212 

88 ,D,OVR,GBL 

Cl  UPC 

001064 

282 

88 ,D,0V8,GBL 

1NT8A 

OOOOsO 

20 

88 ,D,OVN,GBL 

TOTAL  SPACE  ALLOCATED  = 02bb60  bbbO 
.L1ST.LST/L1 : 1 /-SP=1 N TNAC 
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INfKAl .FTN 

/TR: BLOCKS/ HR 

0001 


0002 

oooj 

0004 


000b 


000b 

0007 


0000 

oooo 

0010 


SUBROUTINE  lNfKAl 


c 

C REZONING  CAPABILITIES 

C 


INCLUDE  'COMMON. FTN' 

KtAL  LAMEl,LAMt2 

COMMON  /CGR1D/  X(70) ,Y(70) ,X0(70) ,YD(70) ,GPM(70) , 

. XNPH(7u) .YNPHC70)  , 

. XX (70) , YY(70) ,XY170) ,DXXFV(70) ,DYYFV(70) ,DXYFV(70) , 

. AM(70),HHO(70),LAMtl(70) , L AMt 2 C 70 ) , COMES ( 70 ) , TANPH1 ( 7 0 ) , 

. TANPS1(70),MAN(70,10),NAM(70,3) 

COMMON  /COTHK/  UT , N1 TtK , ARAT.GRAV , ITER , NMAX , MMAX , 1MAX ,1 1ML , 

. ZERO , N P H 1 .LCONT  , I ELAG.KTOT,  NBUF , N PL,,  N PLOT,  11PL1  10  ) , 

, SC ALEX , SC  ALE  Y 

COMMON  /CPLOT/  BUH (202) ,BUF2(202) ,BUFJ(202) 

COMMON  /C1MPC/  1MP( 10) , 1MD( 10) , 1FL( 10) , IMZ(IO) , IFG(IO) , 

. IFR(10),N2M(10),N3M(10),MMM(10),N4H(10) ,TULC(10) , 

. STNL.STNU.STSH, XMU.TOL, BD1 , BUT  1 , CON  1 , CON 2 , TFR AC , 

KN(  10)  ,FS(  10)  , DRN ( 1 0 ) , OKS  (10)  , ORST (10)  , XNC  ( 10  ) , YNC  ( 1 0 ) , DN 
COMMON  / 1 N T R A / ILAG(IO) 

COMMON/Cll/Nl , NN.GPMl ,GPMi*,XND, YNO, VNN1 , VNNR, VRN, V RS , DRNPH , ORSPH , L 
AREA3U1 , VI ,X2, Y2 ,X J ,Y3)  = -0 . S* ( ( Y 1 ♦ Y2 ) * ( X2-X 1 ) ♦ 

. (Y3+Y2)*(X3-X2)+(Y1+Y3)*(X1-X3)) 

C COMPUlt  FORCES  FROM  DISPLACEMENTS 


0011  00  bOO  L=l, LCONT 

0012  11  (IFG(L)  .lit.  1)  GO  TO  SOO 


0013 

N 1 

= 

IMP(L) 

0014 

NM 

= 

1MD(L) 

001b 

GPM1 

= 

GPM  ( N 1 ) 

001b 

GPM* 

s 

GPM(NK) 

0017 

XNO 

= 

XNC ( L ) 

0010 

YNO 

= 

YNC(L) 

0019 

VNNl 

= 

XD(N1)*XND+YD(N1)*YND 

0020 

VNNM 

= 

XD(N*)»XNDtYD(N*)*YND 

0021 

VRN 

= 

VNNH-VNN1 

0022 

V5N1 

-X0(N1 )*YND+YD(M )*XNO 

0023 

VSN* 

= 

-XUCNW)*YNOtYOCN»«)*XND 

0024 

VKJ> 

= 

VSN*-VSN1 

002b 

ORNN 

= 

OHN(L)>fVKN*DT 

0026 

OKNHH 

= 0.b*(0RN(L)+0RNN) 

0027 

URN(L) 

= ONNN 

0020 

OK5S 

= DKS  C L ) ♦ VKS*l)T 

0020 

OKbFH 

= 0.b»(0RS(L) tORSS) 

0030  ORS ( 0 ) = ORSS 

0031  DRST(L)=  DRST(L)+VRS*OT 

C BROKEN  CONTACT 

0032  IF  ( DRNPH  .GE.  -0.1)  GO  TO  10 
CCCCC  PRINT  4000, L, ITER 

0033  4000  FORMAT ( ' BRE' 13,1b) 

0034  RTULC  = TOUT  ( L) -ORST ( L ) 

CCCCC  PRINT  2720, TULC (L),DRST(L), RTULC 
003b  2/20  FORMAT ( ' TOLC , ORST , RTOLC ’ 1 P3E 12 . 4 ) 


P 
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00  Jo 
00  J 7 
00  J» 
0034 

0040 

0041 

00  4 J 

0043 

0044 
004b 
0040 
0047 

004b 

0044 

OObO 

OObl 


IFGIL)  = 
1 N l L ) = 

FSIL)  = 
DKN  CL)  = 
DriS  ( L ) = 
DKS1' (.  L, ) = 


EU.  0)  GO  TO  b 
ML . NW)  GO  TO  b 


10 


FOK  REDUNDANT  CONTACTS 

DO  b LC=1 ( LCONT 
IK  CIFG(LC) 

IF  ( 1 MP ( LC ) 

1FK(LC)  = 0 
GO  TO  bOO 
CONTINUE 

IF  llfb(L)  .EO.  1)  GO  TO  21b 
GO  TO  bOO 

CADD  APPROPRIATE  INTERACTION  ROUTINE 

IF  CIFRIL)  .El).  1)  GO  TO  9b 
CALL  POINT 


c- 

----- 

TICKLE 

REZUN1NG  

c* 

----- 

---IS  IT 

0 0 b 2 

50 

IF  lAbSlUKSTIL)  ) .LT.  TUL)  GU  1U  bOO 

00b  3 

IF  CIFL(L)  .NE.  0)  GU  TO  9b 

c- 

DU  IT 

ccccc 

PRINT  9 99,  L, I TLR  , DRST  C 1 ) , DKSTC2) ,TULCC1 ) ,TULC(2) 

0054 

999 

FORMAT  ( 

• TIC  13, lb, 1P4E12.4) 

OObb 

iiZ  = 

N2MCL) 

0056 

N 3 = 

N3MCU 

00b7 

N 4 - 

N4MCL) 

OObb 

M*  = 

IMZCL) 

0054 

MM  = 

MMMtL) 

OObO 

oks  r ( l ) = 

0 

OObl 

AKtAP  = 

AREA3lXlNl),Y(Nl),XCNW),YlNtO,XCN4),Y(N4)) 

00b2 

IF  (AHFAP  . GT , 0)  GO  TU  53 

00b3 

N N = 

N2 

0064 

M2  = 

MM 

OObb 

Mi  = 

Mm 

0066 

F LAG ( L ) = 

i . 

00b  7 

GU  TU  55 

OObb 

b3 

NN  = 

N3 

0069 

M2  = 

MM 

0070 

M3  = 

MM 

0071 

fr  L AG ( L ) = 1 

-i . 

0072 

55 

AKb  A = 

AflS(AKEA3(XlNN),Y(NN),X(NM),Y(Nw),X(N4).YtN4))) 

0073 

TMASS  = 

AM(M2)*AKtAP/AKbA 

0074 

TMASJ  = 

1 MASS/ 3 . 

00  7b 

GFM ( N2  ) = 

GPM  t N 2 ) +TMA63 

007b 

GFMCnJ)= 

GPM(n3)-TMAS3 

0077 

AM(MM)  = 

AM ( MM ) ♦TM ASS 

007b 

AMlMx)  = 

AM ( MM ) -TM ASS 

0079 

X(N»)  = 

X(N1 )-DHN(L)*XND-DKSlL)»YND 

OObO 

UN<)  = 

*(Nl  )-DKN(L)*Y*D  + DRS(L)*XNU 

1 


EOKTKAn 
1 N TN  A 1 . 

008  1 
0082 

0 083 
0084 
008b 


U08b 

0087 

0088 
0080 
0000 
0001 

0007 
0093 
0004 
000b 
009b 
000  7 

0008 
0000 


0100 


0101 

0107 

0103 

0104 
010b 
OlOo 

0107 

0108 

0100 

0110 

0111 

0117 

0113 

0114 
01  lb 

0118 

0117 

0118 
0110 

0170 

0171 
0177 

0173 

0174 
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TN  / l'rt  : 8L0CKS/WK 


XO(N«*)  = XD(N*)K1MAS3»(XD(N3)-XDIN2)  )/GRM» 
YOlN*)  = YDCN«)+TMAS3»(YD(NJ)-YD(N2))/GRM* 

XNU  = YNPH(NN)-YNHH(N4) 

YND  = XNRK(N4)-XNRHCNN) 

CKEO  = XN0*XND+YND*YNU 


C 

C uo  10  bb 

OX  = X(N3)-X(N2) 

OY  = Y(N3)-Y1N2) 

L)A  = X(NW)-X(N2) 

Ob  = Y IN«)-Y(N2) 

IK  = O.Ob»(DX*DX+DY»UY) 

IK  (DB*DX-DA*DY  .GT.  KK)  GU  TO  be 
CCCCC  HkINI  4000,L,lltK 
IKG(L)  = 0 
KN1L)  =0 
FS(L)  = 0 
DKN(L)  = 0 
DKS(L)  = 0 
DKST(L)=  0 
GO  TO  bOO 
bb  CONTINUE 

c DELETION  OK  1K1ANGLES 

G IS  IT  NEEDED 

IK  l 2 . »AKEA/FKED  ,G£.  AKAT)  GO  TO  bOO 

C 0 0 IT 

CCCCC  PRINT  1001,  0, ITER , DKST(L) ,TOOC(L) 
1001  FORMATC  UEL'I3,Ib,lP2El2.4) 

C LOCATE  S10E  ZONE  AND  NODE 

NwT  = NX 


Mb  = 

LOCATE 

84  00  81  1= 
NOT  = 
IK  (NbT 
bl  CONTINUE 
6 2 Nb  = 

LOCATE 

DO  831  I 
mst  = 

IK  (MOT 
DO  b3  J= 
IK  (MST 
MS  = 

NWT  = 
GO  TO  04 
63  CONTINUE 
oil  CUNT 1NUE 
IK  IMS 

ADJUST 

DtNOM  = 
MO  = 

XD(NN)  = 
YOCNN)  = 
DKST ( L ) = 


M2 

NODE 
1 , 3 

NAM ( MS , 1 ) 
.NE.  NN  .AND. 


NbT  .NE.  NWT)  GO  TO  b2 


NbT 
ZONE 
=1 , IMAX 
MAN  CNN,  I) 

•EO.  MS  .OK.  MST  . EU . 0)  GO  TO  631 
1 , IMAX 

•NE.  MAN ( Nb , J ) ) GO  TO  63 
MST 
Nb 


EO.  M2)  MS=M3 
VELOCITIES 
GPMWKGPM(NN)-TMAS3 
N2+N3-NN 

IGPMM*XD(NW)kGPM(NN)*XD(NN)-TMAS3»XD(NO))/DENOM 
CGPMW*YD(NW)tGHM(NN)*YDCNN)-TMAS3*YDCNO) )/DENOM 
S0KTUX(NW)-X(N2))**2+CY(NW)-Y(N2) ) ♦ *2 ) *KLAG ( L ) 
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tUHTKAN  IV-FLUS  V02-04G 
1 NTH A 1 • f TN  / TH : hLUCKS/ »H 


1 1 : 2b:  2 3 


20-MAti-7b 


0W3 

0 126 

out 

Olid 
0120 
01  JO 
01  31 

0132 

0133 

0134 
013b 
01  Jt> 
0137 

013# 

0130 

0140 

0141 

0142 

0143 

0144 
014b 
014# 
014  7 

0 1 4# 
0140 
OlbO 
Olbl 

01  S2 

01b3 
OlbO 
01  bb 
0 1 bo 


#0 


7 0 
72 


7b 

#0 


00 

02 


TULC  ( L ) = 1 . b»AbSU>NST  t L)  ) 

ADJUST  MASSES 

TMAS3  = AMIM2J/3. 

GFM(NN)=  GFMINN)*GFM|>-TMAS3 
uFMINU)=  GFM l NO) ♦ 1 MAS3 
GFM(NN)=  0 

A M l M 3 ) = AM(M3)+AM(M2) 

AM ( M2 ) = U 
■AOJUSI  LINKS 
IK  IFLAGIL)  .GT. 

11  IFLAGIL)  .LT. 

DU  #0  1=1,LC0NT 
If  ( N2M l 1 ) .to.  N»)  N2MC1)=N2 
If  1N3M11)  .LO.  NN)  N3M(1)=N3 
CUNTlNUt 


0)  n2MIL)=N6 
0)  N3MlL)=Ne 


M2)  GU  TU  70 


DU  70  1=1, IMA* 

If  IMAN(Nn.I)  . ne. 
MAN  C NN , 1 ) = M3 
GU  TO  72 
CONTINUE 


DU  7b  1=1, IMA* 

It  1MAN(N4,I)  . NE . M2)  GO  TU  7b 
M AN  1 N 4 , 1)  = 0 
GO  TO  #0 
CUN  TlNUt 

DO  00  1=1,3 

If  INAM(M*,I)  .Nt.  Nn)  GU  TU  00 
NAMIMM, 1 ) = NN 

GU  TO  02 
CUN  1 INUt 

IMD(L)  = NN 
lfLtL)  = 1 

If  IfLAGCL)  .Gl.  0)  MMMIL)=MS 
If  CIlAgIL)  .LT.  0)  1MZIL)=MS 
■--KtDUNDANT  CONTACTS 


0 1 b 7 

UU 

b 7 LC  = 1 , 

LCUNT 

01b# 

IF 

lit  GILO 

.to. 

0) 

Ul) 

TU 

b7 

OlbO 

IF 

l IMF (LC) 

.Nt. 

NN  ) 

uo 

to 

b 7 

0160 

IF 

l 1MUILC) 

.Nt. 

N1  ) 

UU 

III 

b7 

0161 

IF 

l If K ( LC ) 

.to. 

1 ) 

GU 

TO 

S7 

0162  lfKIL)  = 1 

CCCCC  FH  INI  1002,  L,1TEH 
0 1 o 3 1002  f OHM  AT  ('  KtU’U.Ib) 

0 1 b4  GO  TO  b# 

01 6b  b7  CONTINUE 

C 

Olee  b#  CUN  TlNUt 

CCCCC  FK1NT  2003 
0 1 b 7 UU  03  N = 1 , N M A X 

CCCCC  FHIN1  3 0 U 3 , N , l M AN ( N , I ) , 1 = 1 , I M A * ) 

016#  03  CONTINUE 

CCCCC  F H 1 N T 2004 , l M , 1 NAM l M , J ) , J=1  , 3 ) , AM t M ) , M=1  , MMA* ) 


1 


PAUL  4 
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KAGE  b 


01b4 


101  70 

01  71 
017  2 

01  7 3 


0174 


017b 
01  7o 
0177 
0170 
0179 

0100 

0101 

0102 

0103 

0 104 

01  Ob 
010b 

010  7 
0100 
0109 
0190 
0141 
0192 


0143 
0194 
014b 
014b 
019  7 
0140 

0199 

0200 
0201 
0202 

0203 

0204 


CCCCC 

CCCCC 

2222 


2003 


3ou3 

2004 


C---- 

9b 

C---- 

CCCCC 

1000 


RH  I N I 2222,  (A, 1 KG ( A ) , IK  L ( A ) , IKK ( A ) , 1 MP ( A ) , I MD ( A ) , N 2N ( A ) , N 3M ( A ) , 

MMM ( A ) , 1 MZ ( A ) ,A=1, LCONT) 

KoRMAT  l//'  CUMACT  LINAS' 

/•  L 1 KG  1KL  IKK  INK  1MD  N2M  N 3M  MMM  IMZ' 
/(IX, 101b>) 

KORMAT  (//'  ZONES  SURROUNDING  EACH  NUDE ' //bX , 1 N ' , bX , 1 1 1 , 
SX,'2',SX,'3',SX,'4',SX,'S',SX,'b',5X,'7',5X,'B', 

, bX, '9' ,bX, 1 10' ) 

KUHMAT  (IX, 111b) 

FORMAT  (//'  NUDES  SUKHUUNU1NG  EACH  ZONE  ' // SA  , ' M ' , bX  , ' 1 ' , 
bX, ' 2 ' ,bX, ' 3 ' ,bX, ' MASS' / (41b, IKE  12. 4) ) 

GO  TO  bOO 

■--Kt-CKEA  HON  UK  A DELETED  NUDE 

•--IS  IT  NEEDED  

IK  ( AHS ( DOST ( L ) ) .LE.  TOLC(L))  GO  TU  bOO 

DU  11' 

KK 1 N T 1000,  L 
FURMATC  CRE 1 13) 

1KH(L)  = 0 

IK  (DKST(L)  .GT.  0)  N2h(L)=N« 

IK  (DHST(L)  .LT.  0)  N3M(L)=N» 

IK  (IMZ(L).EO.O  .OH.  MMM(L).EU.O)  1N0T=1 


IK  (IMZ(L)  .NE.  MMM ( L) ) GO  TO  197 
1KG(L)  = 0 
GO  TO  198 


197  CALL  CREATE ( L ) 

198  IK  ( 1 NOT  .EU.  0)  GO  TO  199 
INUr  = 0 

GO  TO  bOO 

kEVEKSe  CONTACT  nun-heuundant 

199  DU  210  LC=  1 , LCONT 

IK  (IKG(LC)  .NE.  1)  GO  1U  210 
IK  (1MK(LC)  .NE.  Nn ) GO  TO  *10 
IKK(LC)  = 0 
GO  TO  bOO 
210  CONTINUE 

CREATE  REVERSE  CONTACT  

-------KIND  CONTACT 

21b  DO  220  LC=1, LCONT 

If  (IKG(LC)  .EU.  1)  GO  TO  220 
LL  = LC 
GO  TO  230 
220  CONTINUE 


lCUNT  = LCONT ♦ 1 
LL  = LCONT 

C KIND  A ZONE 

230  DO  240  1-1 , IMAX 

IK  (MAN(M,I)  .EU.  0)  GO  lo  240 
MT  = M AN ( N 1 , 1 ) 

GO  TO  2b0 
240  CONTINUE 

C----- — KIND  SECOND  NODE 
2bO  DO  2bO  J=1 , 3 

IF  (NAM(MT,J)  .EU.  Nl)  GO  TO  270 


020b 

020b 
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0207 

2t >0 

CUNT I MUfc. 

0200 

270 

J = J + IF  1XCFLAGCL)  ) 

020V 

IF  CJ  .to.  0)  J = 3 

0210 

IF  (J  .tU.  4)  J=1 

0211 

nt  = namcmt.j) 

c- 

ITtRATt  TU  BOUNDARY 

0212 

272 

00  2b0  I=1,IMAX 

021 3 

H = MANtNl , 1 ) 

0214 

IF  CM  .£0.  0 .OH.  M . to . MD  GO  TO  2b0 

021b 

00  27b  J=l  , I M A X 

021b 

IF  (M  .£0.  MAN(NT.J) ) GO  TO  2V0 

021  7 

2 7b 

CONTI  NO t 

021b 

2bO 

coNriNut 

021V 

GO  TO  310 

0220 

2*0 

HI  = M 

0221 

00  300  1=  1,3 

0222 

N = NAMCMT.I) 

0223 

IF  (N  .£0.  N 1 .UR.  N .£0.  M)  GO  TO  300 

0224 

NT  = N 

022b 

GO  TO  272 

022b 

iOU 

CONI  I N U t 

c- 

CNFA  T£  Ntt*  CONTACT 

0227 

310 

IMP ( LC ) = N* 

c. 

• •CHh.CK 

022b 

W2MILC)  = NT 

022V 

N3MCLC)  = N1 

0230 

IFLCLC)  = 0 

02  b 1 

IFGCLC)  = 1 

0232 

IFHCLC)  = 0 

0233 

IF  CKTOLC  .£0.  0)  GO  TO  320 

0234 

I MO  C LC ) = N1 

023b 

MMMCGC)  = MI 

023b 

IMZ(LC)  = 0 

023  7 

1FLCLC)  = 1 

023b 

rOGCCLC):  RTuLC 

023V 

RTOGC  = 0 

0240 

FLAG ( LC ) = FLAGCL) 

0241 

ORST(LC)=  0 

0242 

XrO  = 1NPHCN2MCLC) ) - Y NPH ( N 3M ( LC ) ) 

0243 

Y NO  = XNPHCN3MCLC) ) -XNPh C N 2M C LC ) ) 

0244 

FKtl)  = SOKTlXND»XND+YM)*YND) 

024b 

XrtC(LC)  = XNO/FRtO 

0 2 4o 

YNC(LC)  = YND/FRtO 

0247 

GO  ro  bOO 

024b 

320 

C.LL  CRtATtCLC) 

024y 

bOO 

CUN  riNUfc. 

02b0 

NfcTUNN 

0 2b  1 

LNL) 

PROGRAM  StCTlONb 
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0001 


0002 

U003 

0004 


0005 


000b 

0007 


0008 


0009 

0010 
0011 
0012 

0013 

0014 

0015 
001b 
0017 
0010 

0019 

0020 
0021 


002  2 

0023 

0024 
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0030 

0031 


SUBRUUT 1 NE  POINT 

Q******** ***************************************************** 

c * 

C CONSTITUTIVE  RELATIONS  FOR  CORNER-EDGE  CONTACTS  * 

C * 

±************************************************************* 

include  'common. ftn1 

REAL  LAMEl , LAME2 

CUNMON  /CGRID/  X(70) ,Y(70) ,XD(70) ,YD(70) ,GPM(70) , 

. XNPH(TO) ,YNPH(70)  , 

. XX(70),YY(70)  ,XY(70),DXXFV(70),DYYFVC70),DXYFV(70), 

. AN  (70)  , RNO(70)  , LAME1  (70)  , LAME2  ( 70  ) , COHES ( 7 0 ) .TANPH1 (70)  , 

. TANPSI (70) , MAN (70 ,10), NAN (70. 3) 

COMMUN  /COT HR/  DT, NITER, ARAT.GRAV, ITER, NNAX , NMAX , 1NAX , TIME, 

. ZERO.NPRI ,LCONT, IFLAG.KTOT, NBUF , NPL , NPLOT , ITPL( 10) , 

. SCALEX , SCALE Y 

Common  /cplot/  bufi ( 202) ,buf2 < 202) ,bUF3( 202) 

COMMON  /C1MPC/  IMP( 10) , 1MD( 10) , IFL(IO) , 1MZ( 10) , IFG( 10)  , 

. 11K(10),N2M(10) ,N3M(10) ,MMM(10) , N4M ( 1 0 ) , TOLC ( 10) , 

. STNL,STNU,STSH,XMU,T0L,BDT,BDT1  ,C0N1  ,CON2,TFRAC, 

. FN ( 10) ,FS(10) ,DRN(10) , URS ( 1 0 ) , DR ST (10) ,XNC(10) , Y NC ( 1 0 ) ,DN 

cummon/ci i/ni , n« ,gpm 1 ,gpm», xnd, Ynd, vnni , vnnn, vrn, vrs, drnph,drsph,l 


NORMAL  COMPONENT  — 

■--RIGID  CONTACT  

IF  (DHNPH  .LE.  DN)  GO  TO  20 


( VNNk-VNN1-2.*(DN-DRN(L) )/DT)»GPMR/ (GPM1+GPMK) 

DVNN1*GPN1/GPNR 

DN*STNL+GPM1*DVNN1/DT 

XD(N1 )+DVNNl*XND 

Y D ( N 1 )+DVNNl*YND 

XD( NR) +DVNNR4XND 

YD(NM)+DVNNN*YND 

DN 

DN 


OVNN1 
DVNnk 
F rt  ( L ) 

XD(N1) 

YD(N1) 

XD(NX) 

Y D ( n ■ ) 

DHN(L) 

DRNPM 
GO  Tu  30 

FLEXIBLE  CONTACT .........  — -- 

20  FN(L)  = AM1N1(FN(L)FVRN»DT»STNU,DRNPH*STNL) 
FN ( L ) = AMAX1 (FN(L) .ZERO) 


C 

C 


C 


C 


C 


SHEAR  COMPONENT  — 

30  DSST  = FN(L)*AMU 

DS  = OSST/STSH 

-NO  SLIDING  .......... 

IF  (AbS(DKSPH)  . GT . DS)  GO  TO  40 

FS(L)  = SISH*0RSPH 

RETURN 

SLIDING  — 


40  URS(L) 
ORSPH 
FS  ( L ) 


S1GN(DS,DRS(L) ) 
DRS(L) 

S1GN(DSST,0RS(L) ) 


RETURN 

END 


379 


1 


i 

ij 


IOHTKAn  IV-PUIS  V02-04U  I1127I4N  2K-NAK-7K  HAOt  I 

VKt.ACt.7lN 


UOOl 


0002 

OOOi 

0004 


ooos 


000k 
000  7 


MIHKOOI'lNt.  CMC  ATI  Id 
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C * 

c •»*»•*♦•••••♦•***»••*•*»*»•*♦»»♦»*••**♦*»*•*•»•****•*•*»••»»♦ 

iNc'cuot  'common.) in* 

Ht AC  CAMtl.CAMti 

lUNMON  /CUKIO/  XI 70 > ,71 70) , X0170) , TIM  TO) .UPM170 ) , 

. XNPHl  70  ) , TNl'Hl  70  ) , 

. *Xl70) , 77 l 70) . XV l 70) ,0**1 Vt 7o) .PTTFVl 70) ,0X71 V 1 70) , 

. AMI  70)  .NMO(  70)  tLANCll  70)  ,LAMt2l?0  ) , COHt.M  70  ) , T ANPH1 1 70  ) , 

. TANKS  1(7  0), MAM?  0, 10). NAN(70,J> 

COMMON  /COtHH/  0T.NniK.AKAT.UKAV.17tK.NMAX.MMA*. IMA*.  1'lMl. 

. Zl.KO.  NPN  1 , 1. 1 IINT,  11  LAU.MOT  , NHU)  . NPL  . NOUOT  , ITPl.t  10  ) , 

. SCALt * , SCALtl 

COMMON  /CPl.OT / huh 1 202) , hoi  21202) ,hui u 202) 

COMMON  /C1NPC/  IMP  l 10)  , IMIU  10)  , 17  LUO)  , 1NU10)  , DUUO  ) , 

. ll HI  10)  ,N2Ml  |0 ) , MINI  10)  , MMM1 10) ,N4M(  10)  , TOLCl 10) , 

. STNO  , STNO  , M KH  , XNU  , Tl'L  , HOT  , HPT  1 ,CON  1 . CON  2 , Tl N AC , 

. 1 M 10)  ,FSl  10  > ,PKNl  10)  ,OMM  10)  .DHbTUO)  , XNCt  10)  .TNCUO)  .ON 

C Nt»  NOl't  ANO  20M  ............... ... 


OOOti 

00  10  *M,N*AX 

ooov 

11  li.PNlN)  . Nt.  0)  UP  TO  10 

0010 

lMPll.  )«  N 

oon 

V.O  TO  20 

00  12 

10 

CONTI  NU1. 

001  4 

n«ax  z NM A X ♦ 1 

0014 

1 Hl>  V L ) * HNAX 

oon 

20 

N«  * 1 NO  ( l,  ) 

001H 

00  JO  *M,**A* 

001  7 

If  l AMI  Ml  ,Nt.  0)  Ull  Til  10 

00  1 H 

l M2  1 l.  ) * M 

00 1 N 

V»0  JO  40 

0020 

10 

Cl)N  T 1 NOt 

0021 

MAAX  = «HA\M 

00  2 2 

INill,)*  MMA* 

00  2 7 

40 

M«  * 1M2(L) 

0024 

N 1 * IMP  Id 

00  2S 

N 2 * N 2 M (1. ) 

0026 

Nl  * NlN(d 

0027 

A V Nn  ) * * INI  ) -OKNU, ) *XNC  11.  )-OKM  d »7  NCI  l, ) 

002H 

V l Nt*  ) * 1 l N 1 ) -OKN 1 C ) * 1 NC 1 C ) 10KS ( L ) • *NC  1 1. ) 

0020 

XN4*N  ( N*  ) a X i N 1 ) 

0010 

7 NPH IN*)  » 7 1 N 1 ) 

00  11 

1)1  s »OH  Til  * IN2  )-*lNN  ) )**2*l)  IN2  )-7  INN)  )**2  ) 

0012 

02  * SUHTl  l *1M)-*IN»)  ) »*2*l  7 IN2)-1  lN«  ) )»*2  ) 

0011 

► HfcO  * 01/1 01*02) 

0014 

HILL  * l.-l'KtO 
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00  IK 

7 01Nn)>  1 HI  0*701 N2)1H1U.*701N1) 

0017 

OHSTIU)  * 0 

li.HNfNA  | ION  Ur  cUNl  IMrAV.Ik-1’ 

00  IK 

Dll  42  1*1  , IMA* 

tOM[HA6  IV-l’Lli*.  KO;- 04V. 
OHtATK.tTN  I [NIHLUUS/HK 
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0040 
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It  1616  .to.  0)  oo  TO  4; 

OO  4;  J*1,16AX 

It  1616  . 6t . 646(61,.)) ) OO  TO  4; 

66  * 616 
666 ( L ) a 616 

OO  TO  41 
C 06  T 1 6Ut 

--NtAS51C66t6T  Ut  6A56  A61>  OTHtH  OHOOtHT ItS 
Tut  * TIN  AC*  1 Ul  toil) 

A66  * A6 1 66 ) 

006(66)*  A66/1. 

(.06(6;)*  006(61 )-A66*blU,/ 1. 

006161)*  O06(6l)-A66*t NtD/1. 

A61 66  ) * A 6 6 * 1 0 1 0 
A 6 1 6 o ) ■ 466*611.1, 

L A6 t 1166)  * CA6tl(66) 

CA6fc ; l 60 ) * LA6t;i66) 

CtlNtSl60)  * CUNtM66) 

TANOHUN*)*  TA60NK66) 
r*60.51(66)a  TA60.M166) 

t5TA0Ll5H6t61  OF  6th  L166.S 

OO  44  J* 1 , 1 

64  * 646(66,0) 

It  164  ,6t.  6;  • A 6 0 . 64  • 6t  • 61)  (.0  TO  45 
C06T 1 6Ut 
646 ( L ) * 64 


It  LlL)  * 0 
6 A6 1 66 , I ) * 64 
6A6 1 66 , ; ) * 6a 
646(66,1)  * 6; 

646(66, | ) * 64 
6A6(6*,;i  t 61 
6 A 6 ( 6 • , 1)  * 66 

OO  50  1*1,  IMA  4 

It  (66  .to.  646(  6 t,  11)  v.O  TO  60 
CUNT  16111. 

sroo 

64616.1,1)  a 66 
OO  *0  1*1 , 16A4 
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CD6  T 1 6Ut 

06167  ; 1 00 

646(64,1)  a 66 

00  00  1*1, I MAX 

646(66,1)  • 0 
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— CONN ter  01,0  C06TACT5  -------- 

OO  100  LC* 1 , LCU6T 
It  (ltC(LC)  ,tO.  0)  CO  TO  100 
It  (61  , 6t . 1 60 ( LC  * * CO  To  o; 
6;6(LC)  * 66 

666  ( LC  ' * l 6 ,.  ( (,  ) 

CO  TO  100 


MlMtKAn  IV-PLUN  V U 2 * 0 4 (•  11:27:4b  2*4-NAN-7*  PAUt  i 

I'KlMi.M'n  Z t K : BLOCKS/ »K 


0 0*4U 

9 J 

If  t N 2 . N ► . 

1NIHLC))  UO  TO  100 

0091 

NJM(LC)  = 

Nil 

00*42 

INM  lc  ) 3 

MAN l L ) 

00*4  J 

100 

c 

CCCCC 

ccccc 

Cun  1 1 no* 

FH1NT  J 000, 
H K 1 N 1'  V Oo  J 

L 

0094 

Oil  101  N=l, 

NN  AX 

ccccc 

I’HIM  iooi. 

N , (NAN  IN , 1 ) , 1* 1 , 1NAX) 

00  9b 

101 

CON l INU1 

ccccc 

PK 1 N r 2004, 

1N,1NAM(M,J),J*1.J),AN(N),M*1,NNAX) 

c c c c c 

PN 1 N r 200  7 , 

(N.LPMN)  ,NM  , N M A X ) 

ccccc 
c c c c c . 

PHINI'  2222, 

IK,  U l.(K  ) , HLl  K > , 17  M K)  , IMP  ( K)  , 1MIHK) 
MMM  ( K ) , 1 MZ ( K ) , Ks  1 , LCl'NT  ) 

00*4(i 

2 2 2 2 

KOH  N A t 12/' 

contact  linkn' 

L 


m.  in.  17N  IMP  1 Ml)  nzm  NJM 


1M2* 


/ l l A , U)  1 b ) ) 


0 0*4  7 


Ht  l'UKu 
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009  H 

009  9 

iOOO  MINN  AT 
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0 1 00 

2\)y)2  r'ONNAr 
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010b 
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tND 
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st.c  r ions 

NANt 
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cornu 
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0 0 i 4 i i h 4 9 
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0 1 h 1 M 1710 
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00  4b  Is)  W W 
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l //  • 

MM 

N7.a  ( (INI  ACT  Ndl't  CHtA170.  CUNT  ACT 

Nil*  14) 

l //  • 

NUOt 

DATA ' / ZbX, 'N' , 

b A , • X • , 1 1 X , ’ X • , 1 0 X , ■ 

XU  ' , 

lux , 

► • VD • , 

,7111,1b, I P 4 1 1 2 

.4)  ) 

l / / • 

ZONt 

DATA'ZZbX, ' M ' , 

bX , ' XX‘ , 10A, • 11 ' , 10X 

. • XX  • , 

10X  , 

, *4  A , • l ANtl  ' »X,  ' 

LAMP2  * 7X,  'ClIHtN*  7 X , ' 

TANPM1 ' 

Ci A,  1 TAN  PM  ' 7 (It,  IPxlK  12.4)  ) 
l//*  2.1'Nt.S  SUNHUUNOlNi.  1 ACh  MODI.  •/ / bX  , ' N ' , b A . ' 1 ' , 
bA.•2',bX,,.),,bA,,4,,bX.,b',bX,•b•,bX,'7,,bX,,ti•, 
bX, ,bX, * 10'  ) 

1 1A, 11 lh> 

1 //'  N0U7S  SUKHUUNlUNl.  tACH  ZONt'ZZbX. 'M1 ,bX, ' 1 ' , 
bX.'Z'.bX.'J'.bX,'  M ANN  1 Z ( 4 1 b » 1 ft  12. 4) ) 
l//‘  on  1 1>  POINT  NASStN ' ZZbX , ' N ' 4X , ' MANS ' 

/l IN. Iff  12.4)  ) 

I'ONJ  SPACt  T» • STUKt  Nt»  LINK  --  JOB  AHUNTtD') 


ATTH1 HUTtN 

Ha  , 1 .CON,  l, CL 
Ka  .li.CUN.LCL 
Nil  , () , CON  , LCl. 
Ha , U.llVH.l.UL 
Ha  .O.OVN  , k.hL 
Ha  ,l>,l>VN,l.Bl. 
K a , l',OVH,(.BL 


T01AL  SPACt  Al.LtK.AtrD  * 0 2 710  2 S>421 


LlNr.LM/ 1,1 : 1/-NPMH7  ATI 


► OK  rKAN 
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1*-y>lus  Vu2-04G  l ) : 2 8 : 1 2 2V-nak-7y.  p auy  1 

To  / THIBLOCNS/NR 

ooBKuuriNt  srntss 

c a******'*********************'******************************* 

c • 

C NONtNTUN  BALANCE  Al  CONTACTS  * 

c * 


1NCLUUE  ' COMMON . F TN  * 

KtAL  LAKY.  1 , I.ANE2 

CUNNON  /CGH10/  Al 70) ,Yl 70) , XUl 70) , YIM  70) ,GPNl 70) , 

. ANPMl 70) , YNPH170)  , 

. XA170)  , YY170)  , XY  l 70)  ,1>XXY  VI  70  ) ,1>YYY  V<  70)  .UXYFVl  70)  , 

. AN  l 70)  .HH0170)  , LANE  1 1 70)  , LANE2170)  , CORES ( 70)  .TANPHI170)  , 

. IANPS1 (70) .NAN170 ,10) ,NANl70, 3) 

CONNON  /CUTHR/  OT,NlTlK,AHAl',i.KAV,rrtK,NKAE,KNAX,lNAX,TlNt, 

. aY.HU , N P K 1 , LCUNT  • l YLAG , OTUT  , NBUK , NPL , NPLllT  , 1TPLI 10)  , 

. SCALEX.SCALEY 

CON  NUN  /CHIjHT  / BOH  1202) ,RUE2l  202) .BUY  31202) 

CONNUN  / C 1 NEC/  1NPI 10) , 1NDI 10) , 1Y LI  10) , 1N21 10 ) , 1YGI 10) , 

. 1YRI 10) ,N2N( 10) ,N3Nl 10)  , NNN11U)  ,N4Nl  10)  .TULCl 10)  , 

. STNl.  ,STNO,STSH,  ANU  . TOL , BUT  , BUT  1 ,C0N1  ,Cl)N2  . TYKAC, 

. YNl  10)  ,FSUO)  ,ONNl  10)  ,ORS(  10)  ,UKST(  10)  .XNCUO)  , YNC110)  ,DN 

C NA  I N ITERATION  LOOK  

Ull  100  Nzl.HMAA 

11  ( AN  ( N ) .lit.  0)  GO  TO  100 

XNPH2a  ANPMlNANlN,2))-XNPHlNANlN,l)) 

ANPHTa  ANPhlNAN(N,3))-XNPMlNANlN,l)) 

Y«Pm2s  YNPHINAN(K,2))-1NPHINANIN,1)) 

Y«PR3a  YNPhlNAN(N,3) ) - YNPN< NANI N , 1 ) ) 

OY.T  a XNPM2*YNPH3-YNPH2»ANPH3 
A02  a AlHNANIN, 2)  )-XlHNAN(N,  1 ) ) 

XUi  a AlHNANIN, 3) )-AD(NANlN, 1 ) ) 

Y 02  a YOINANIN, 2) )-YlHNAN(N, 1 ) ) 

Y 0 3 a YOINANIN, 3 ))«YIH  NAN l N,l)) 

C 1 NCKfc.NY.NTAL  STKA1NS  ANl>  NOTATIONS 

EOXX  a tXU24YNPh3-XD3»YNPN2)/OtT 
LOYY  a IYP3*XNPH2-YU2»XNPM3)/0ET 

to  AY  a O.S»IXU3*XNPH2-XU2*ANPH3»Y02»YNPH3-Y03*YNPH2)/UET 

HO AY  a 0.S*lX03*XNPH2-AD2*XNPH3-YD2»YNPH)4YU3*YNPH2)/0tT 

t A A a Y.OXX»Ot 

Y.YY  = hOYY»OT 

tAY  = y;OAY*OT 

KAY  = KOAY*OT 

tV  a E X X ♦ E Y Y 

C — tLASTIC  STHY.SS  1 NCHENENTS  — 

i)  A X E a OANY.l  IN)  »Y  V*2.  ♦ L ANY.  2 l N ) » t X A 
OYYt  = LAN! 1 l N ) *e V ♦ 2 . *LANE2 l N ) *t Y Y 
OAYt  = 2.»LANE21N)*EAY 

C SIKESS  INCNtNtNTS  AN1S1NG  IKON  STRESS  KUTA1 ION  --- 

Sllirfa  XXINJ-YYIN) 

OAAK  a -KAY*lSOlY 1 *KAY*2. *XY IN) ) 

UYYK  a -OAAK 

OAYK  a KAY«l-2.»HXY*AY(N)4Sl)llf  ) 

C VISCOUS  STRESS  1NCNIHY.NT 

OX  A V a 0AXE*B01 
OYYV  a DY Y t*HD T 
OXYV  a l)XYt»BUt 


11120:12 


2V-NAK-7N 


HALE  2 


FORTH AN  IV-PLOS  VU2-040 
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00  J* 
00  30 
0040 


0041 

0042 
004  J 
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XYN  x XI  IN)*UXYE»0XYR-DX1FV(H) 


C -YIELD  CALCULATIONS 

C — -NEW  STRESSES  ----- 


XX ( M ) X XXNtUXXV 
YKN)  x YYNtUYYV 
X Y ( M ) X XYNADXYV 
DXXFVIN)  x OXXV 
DYYFVIM)  x OYYV 
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ib 
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INC  LUll  t 1 CllNMUN.t  IN' 

HtAL  LAHLl.LAMtJ 

Common  /CUN  10/  Al  70  ) , I l JO  ) , AlH  70  1 , ll>l  10  ) , UPKl  70  ) , 

. AMPH ( 70  > , YNPH  l 70 ) , 

. A A 1 707,111  7l>J,All701.llAAtVl  7u  ) ,01  If  V 1 70  7,0  AIK  VI  707, 

. AMI  70  7 , NMUl  /l>  7 , LAMP  1 1 70  7 , l.AMt  / l 7l> ) ,COMt  al  7k  7 , TANPHl  l 7l>  7 , 

. I A N P a 1 l 707,MANl70,lll7,NAMl  70, i) 

COMMON  /lulNH/  Dl.NlltM.AHAl,  l>KA«,l'lt.h,NMAX,MMAA,lNAA,TlMt, 

. ILMU.NPM  I , LCUN  1 , 1 1 LAl,  ,N  fUl  , NtlUt  , API.,  NPLOT,  IIPLC  10  7 , 

. aC ALIA , SCAltl 

Common  /CPLur/  noil  i joj ) , mil  / 1 /o/  ) , out  Ji  juj  ) 

Common  /C  IMPC/  imp i I o ) , 1 miu  i 17 1 , 1 1 LU o 7 , INii  lu  7 , It  i,i  1 i>  7 , 

. It  N ( 10  I , M/MI  10  7 , N JMI  t 0 7 , MMMi  10  7 , N*M(  107  , TUl.C  l 10  7 , 

. a INI, , arNO  , M.NM  , AMU  ,101.  , MO  l , 00  It  , CUN  1 , CON/,  tt  KAO  , 

. t Ml  10  7 , t M 1 0 7 , OMNI  1 O 7 , MM  10  7 , OKM  l 10  7 , A NO  l 10  7 , 1 NO  l 10  7 , ON 

COMMON  /atitAN/  t lailN  , t 1 NUN 


OOOM 


It  1 MolH  1 I t N , MON  1 7 7 1 0,  S , 10 


oO  10 

* 

pk i n r /ooo. 

1 It  N , 1 1 M t 

oon 

PK1MI  417171, 

IN#M*)«VlN>»AulN)*ll’lN),fcs|»ftNAA) 

00  12 

P N 1 N 1 / 0 0 i , 

l ft  , k K l ft  1 , 

IIIN1,A11N),AMIN1,I.AMI11N1,LAM141M7, 

LOHt.M  ft  ) , 

IANPk11M),TANPMIM7,Mi|,MMAA> 

00  1 J 

lo 

It  l «UD1  l Ft  N 

, NHLU  l ) ) 

;o, i7,7n 

0014 

IS 

NHL  = NHbM 

00  1 !» 

nut  l ( NHL ) * 

r imjm 

00  1 n 

nor  2 ( NHL  ) * 

riNt 

00  1 1 

nor  Jl  NHL  ) 5 

t AM)  ft 

001  N 

20 

Oil  JO  1*1,10 

00  1* 

l t iltr.H  .tj 

. 1 till  1 7 7 CALL  P L li  l M 

OOiO 

iu 

C U N 1 l N U r 

oon 

M rUKN 

00  2 2 

iOOO 

t UN  N A l ( / / / / 

‘ 1 1 1 N A 1 loN  ft UNMAN  s 1 1 M , 

. / 

' 11  Mt 

>' lit I/.4 

oo;  \ 

200  1 

ruKNAl  (//• 

NllOt  PA1A 

'//aA.'N'.NA.^'.llA.'l'.lOA.'All1, 

• 1 0 A , 

* 1 1>  • , / l 1 A 

, IS,  lt'«t  W.4  7 7 

00  i 4 

2002 

r'UNM Al  ( / / * 

,’oMt  OATA 

'//SA.'M'.SA.'AA'.lOA.'ll'.IOA.'Al', 

• l O A , 

* AM  * , * A , ' 

l.AMt  1 ' 7 A , 1 LAMt  / ' 7 A , 'COM!  a*  1 A , ' TANPhl 

. , 1 

t ANt'a  1 • / l IN,  !P«tl  1 7 . ♦ 7 7 

002* 

tND 

pNiiiiNAM  atcnoMa 


NAftfc 

Silt 

A 1 Tk  1 tun  ta 

SCODL 1 

uuon  in 

20  1 

KM  , 1 , CON, LCL 

$ 1 DATA 

OOO  i *0 

1 ON 

K»  ,11, Cl)N,  LCl. 

S v ANmS 

o o o o o n 

i 

km  ,ii, Cun, LCL, 

CUN  10 

0 1 0 J / 4 

JMO 

KM  ,17,IIVN  ,LlAL 

CO  (NH 

0001  10 

in 

Km , U , uVN , UHL 

KOHTPAN  lV-PLUb  VU2-04U 
INPUT.  UN  /1H  I bLllCKS/bK 


1 1 :2b:4b 


29-NAP-7b 


PAUL  1 


0001 


0002 
000  J 
0004 


000b 


000b 

0007 


000« 

0009 

0010 
0011 
0012 

0013 

0014 
001b 
001b 
0017 
001b 

0019 

0020 
0021 
0022 
002  3 

0024 
002b 
002b 
0027 
002b 
0029 
00  JO 
00  J1 
00  J2 
OOJJ 
0OJ4 
00  Jb 

00  Jb 
00  J 7 
00  JB 
OOJ9 


SUbbUUTINt  INPUT 


GbNKNATllIN  UK  A UN  11  UK  M CULUNNAK  NL6H 


lNCOUUt  ' CONNUN . KTN ' 

K t.  A L UANt  1 , LANb2 

CUNNUN  /COH 1 0/  X(70)  ,»(70),\l)(70),*U(7U),(;PN(7U), 

. ANPH(  )0) , *NPH( 70)  , 

. AX (70)  ,**(70)  ,X*  (70)  ,l)XAKV  ( 70)  ,l)YYFV(7o)  ,l)X*FV(70) , 

. ANi 70) ,HHU( 70) , LANtl ( 7o) , LANt2(7o) , CUHtS ( 7 0 ) , TANPH I ( 70 ) , 

. TANPSK  70) ,NAN( 70 , 10) , NANI  70, J) 

CUMHUN  /CUT  HP/  oT.MTtN,  An  AT,  UP  A V , ITtK,NNAX,NNAX,  IN  AX,  TINt, 

. ZbHU.NPKI .UCUNT, 11 0 AC, MOT , NbUK ,NPO,NPOUT, 1 TPL( 10) , 

. SCAUtX.SCALt* 

CUNNUN  /CPOOT / bUK  1 ( 202) , bUl 2( 202) , HOI J(202) 

CUNNUN  /C1NPC/  1NP( 10) , 1N0( 10) ,1K0( 10) , lNZ(lo) , 1FG( 10) , 

. 1KH( 10) ,N2N(10) ,N JN( 10) ,NNn( 10) ,N4N( 10) ,TUOC( 10) , 

. SlNU .STNU.STSH  , XNU  , TUL  , bUT  , bUT  1 ,('UN1  , CUN2 ,7T  KAC  , 

. 1 N( 10) ,Kb( 10) ,ONN( 10) ,UNb( 10) ,OhST( 10) ,XNC( 10) , YNC( 10) ,0N 

---ZUNt-NuDK  L 1 NK b 

NNAX  * 4*KTOT+2 
NN 4 X s 4+KTuT 
Uu  10  K=1,KTUT 
Ax  * 4»(K-I > 

NAN(KK+l,l)  = KK+1 
NAN ( KK  + 1,2)  = Kb 
NAN ( KK+2 , 1 ) = KK+1 
NAN(KK+2,2)  = KK  + 2 
NAN(KK+2,J)  = KK-1 
NAN(KK+2,4)  = Kb 
NAN(KK+J,1)  = KK  + 4 
HAN(KK+J,2)  * KK  * J 
NAm(KK4 J, J ) = KK  + 2 
NAN(KK+3,4)  = KK+1 
NAN ( KK+4 , 1 ) = KK  + 2 
NAN(KK+4,2)  = KK  ♦ J 


10 


NANIKK+l , 1 ) 
NAN(KKtl , 2 ) 
NAN ( KK* 1 , J) 
NAN ( KK  + 2 , 1 ) 
NAN(  KK  + 2 ,2) 
NAN(KK+2, J) 
NAN(KK+ J, 1 ) 
NAN(KK+J,2) 
nanikk+j, j) 

NAN(KK+4, 1 ) 
NAN ( KK+4 , 2 ) 
NAN(KK+4, J) 


KK  + 2 
KK  + 1 
KK  + J 
KK  + 2 
KK  + 3 
KK  + 4 
KK  + 4 
KK  ♦ 3 
KK  + b 
KK  + 3 
KK  + b 
KK  + b 


NAN (1,2)  = 0 
N AN ( 2 , J ) = 0 
N AN ( 2 , 4 ) - 0 
KK  = 44K1UT 


lUHTXAN  K-HCOb  lo.'-04).  11:;n:46  ,'v-»Ah-  If  DAot  .' 

L M k>  (.1  ( .eTN  < Vk  IfLUiUM  UK 


00  40 

MAN  V MS* 1 , 1 ) 5 NK 

00  4 1 

HAflfM.M  1 s 66-1 

0 0 4.’ 

666  ) 66  ♦.',.'  ) C 66 

» 

00  4 1 

K * S N N A A / i 

0044 

L)U  iU  MM.Ki 

004b 

6 - 6 1-1 

0 046 

K K * 

004  A 

6166*1)  s 0 

00  4 H 

A i 5 5 ♦ i ) - l . 

0U44 

Y IKK* i ) 2 * LUA l < k;-5  1 1 

0050 

1166*4)  5 A L.UA  t(6l-6l  ) 

00  51 

60166*1)  i 0 

OObi 

10)66*1)  * 0 

0 0 5 i 

60)66*4)  - 0 

00  54 

iO 

C 

1 D ) 6 6 ♦ 4 ) s 0 

0 0 55 

OO  iO  H= l , 6X66 

00b6 

66)6)  * 0 

00b  / 

111")  » 0 

Oubh 

6 1 ) X 1 — 0 

0054 

rtmUN)  a io. 

0050 

UAX1  1 ) X ) s Jb6  1 . 1 

OOM 

LANt4l«>  - .141.14 

00  5 i 

CUHt-MM)  s 0 

oop  i 

r AN*  HUH):  0 

0054 

JO 

lANt’bl  )N)x  0 

006b 

KhlNT  4001  , 1 6 , 6 l 6 ) , 1 1 6 ) . 60)6 ) , UH  N ) , 6*1 . NNAX) 

0 0 5 5 

1’K  l 6 r 4 0 0 4 , )«,6M*),l))X),6)lX)  , 6)1)1)  X ) , l.AXt  1)6),  l A H t 4 1 X > 

. CUMt.S)  A ) , I Akl'M  l X ) , 1 AN  I'M  IN)  , 6*  1 , NNAX) 

006  I 

H61M  V 0 0 1 , )N, )NAN)N, 1 ), 1*1 , 1NAX) ,N»1 , NNAX) 

006  8 

OHlNr  10)'4,  )X,  )NAX)  X,  J)  ,.l*l  , J)  ,6*  1 ,NXAX) 

0054 

Kt  TONN 

oo?o 

^001 

6UNMA1  1//’  N)IOt  DATA  • //bX  , • N 1 , 66,  • 6 • , 1 16  , • Y < , 106  , • 60  1 , 

. 106  , • 10'  , /)l  6,  lb,  1D41  14.4)  ) 

00  A 1 

;ooi 

fHHXA)  )//'  „om  DATA’ 4/bX, *N • ,b6, * 6X • , 106, • Y 1 ' , 106, 1 XI • , 
. 106.  ’ AH’  .*6,  • LANl  1 ’ IX.  ’l.ANtJ  ' 7X,  ‘ COMtS'  IX,  ' TANPH1 

. 6X  , * T1DTS1  ’ / 1 16,  ll’vt  14.4  ) ) 

0 0 j ; 

;00  J 

fUKXAT  )//’  40Nt.s  .HUHNOUNDlNi,  lAih  N0P1  ' / / bX  , • 6 • , b6  , • 1 ■ , 

. bx.’j’.bX.’J’.bX.'A'.bx.'b’.bX.'b'.bX.M'.bX.'b', 

. bX,  , b.X,  • 10'  ,/  lbl6) ) 

Oo  J 1 

*’00  4 

1UKXA1  )/-•  NUOt.S  MIKKUllNOlNli  l.ACH  4.0Nt  1 / / bX  , ’ X ’ , bX  , ’ 1 ’ , 

. bX, • 4 ’ , bX , • 1 • , / (416) ) 

00  1 4 

e.Nl) 

t'NUuK  AM 

xStC  flUNxS 

NAMfc 

MZt 

ATTN  1 DoTl.S 

SOUDtl 

VO  1 55i 

4 J 1 

K*  , 1 , ClIN  , LCL 

$1’0A  1 A 

0 0 0 0 1 0 

4 

N. .O.CUN.LCL 

$ 1 0 A V A 

0 0 0 4 O 0 

i>; 

XX , D,CuN, UCL 

$ V AK.s 

000040 

N 

N»  , D , Cl’N  , LCl, 

387 


FORTRAN  1V-PLUS  V U2-04G 
PLOTM.FTN  /TR:BLUCKS/»R 

0001  sUbRUUTINE  PLOT M 


11:20:11 


29-MAH-7E 


PREPARAT 1 ON  01  MESH  PLOTS 


INCLUDE  ’COMMON. UN’ 

REAL  LAME  1 , L AML 2 

COMMON  /COM  1 0/  X(70) , Y ( 70) ,XU( 70) , YD( 70) ,GPM( 70) , 

. ANPH(70) ,YNPh(70)  , 

. XX (70) , Y Y(70)  ,Xt  (70)  ,DXXF  V170)  ,DTYFV(7U)  ,DXYF  VI 70) , 

. AM( 70) ,RHO( 70) ,LAME1 (70) , LAME2 ( 7 0 ) , CUHES ( 70 ) , TANPH1  (70)  , 

. TANPS1(70).MAN(70,10),NAN(70,  J) 

COMMON  /COTHH/  DT, NITER, ARAT, CRAY, 1TEH,NMAX,MMAX,1NAX, TIME, 

. Z£RO,NPRI , LCUNT, 1 FL  AG  , Kl'UT  , NbUF  . NPL  , NPLUT  , 1TPL  ( 1 0 ) , 

. SCALcX.SCALEY 

COMMON  /CPLUT / bUF  1 (202) .bOK 2(202) , HUE 3(202) 

COMMON  /C1MPC/  IMP( 10) , 1M0( 10) , IF L(10) , IMZ( 10) , 1FG( 10) , 

. IFR(IO) ,N2M( 10) ,N3M(10) , MMM( 10) , N4M ( 1 0 ) , TOLC ( 1 0 ) , 

. STNL,STNU,STSH,XNU,TOL,bDT,bDTl ,C0N1 ,CON2,TFRAC, 

. FN(10) ,FS(10),0RN(10) ,URS(10) ,DRST(1U) ,XNC(10) ,YNC(10) ,DN 

CALL  PLOT (11., 0., *3) 

DO  20.Msl.MMAX 

IK  ( AM ( M ) .CO.  0)  CO  TO  20 

AX  = SCALCX*X(NAM(M, 3) ) 

AY  s SCALEY • Y (NAM( M , 3) ) 

CALL  PLOT (AX.AY.3) 

00  10  J= 1 , 3 

AX  s SCALtX»X(NAM(M, J) ) 

AY  = SCALeY»Y(NAM(M,J)) 

CALL  PLO r(AX.AY,2) 

CONT1NUC 

CONTINUE. 

---PRINT  RESULTS — — — — 

PRINT  2003 
00  101  Nsl.NMAX 

PRINT  3003,  N,(MAN(N,1),1s1,IrAX) 

CUNTINUC 

PRINT  2004,  (M,  ( N A M ( M , J ) ,Jsl ,3)  , AM ( M ) ,M=1 , MM AX ) 

PRINT  2007,  (N,CPM(N) ,N=1 ,NMAX) 

PRINT  2222  , (K,1KG(K),1FL(K),1KK(K),IMP(K),IMD(K),N2M(K),N3M(K), 
. MMM(K) , 1MZ(K) ,K=1 , LCONT ) 

FORMAT  (//'  CONTACT  LINKS' 

/'  L IFC  1FL  IF  R IMP  IMl)  N2M  N3M  MMM  IMZ' 
/( IX, 1015) ) 

FORMAT  (//•  NODt  DAT A ' / / 5X , ' N ' , 6X , ' X ' , 1 1 X , • Y • , 1 OX , • XO ' , 

10X, 'YD' ,/(lX,I5,lP4C12.4)) 

FORMAT  (//•  ZONE  DATA'//SX, *M' ,5X, ’XX’ ,10X, • YY ' , 10X, 'XY ’ , 

1 OX , ' AM ' , 9X  , ' LAMC1 ' 7X, ' LAMC2 ’ 7X, 'COHCS*  7X, 1 TANPH1 • 
bX, ' TANPSI '/(16, 1P9E12.4) ) 

FORMAT  (//•  ZONES  SURROUNDING  EACH  NODE ' // 5X , ’ N ' , 5X , ' 1 ' , 
bX, '2' ,bX, '3' ,bX, *4' ,bX, 'b' ,5X, '6' ,bX,  '7'  ,bX,  , 
bX, '9' ,5X, * 10' ) 

FURMAT  (IX, 1116) 

FUKMAT  (//'  NODES  SURROUNDING  EACH  ZONE ' / 2bX , ' M ' , bX , ’ 1 ' , 


- 388  - 


KORTK AN  1V-PLUS  V02-04U  Ut^Ul  2V-N AK-76 

PLUTN . F fN  /IK : BLOCKS/ MK 

. bA,  • 2 ' ,!>X.  ' 3 ' , SX,  ' NASS' / (416. 1PL12.4) ) 

OOJJ  2007  PUKKAT  (//'  OKU)  POINT  N ASStS ' / / SX , • N ' 4X , 1 M ASS • 

. /( lo, 1PL12.4)  ) 

00  i 4 KtTUKN 

00 Jb  fcNO 


PKOOKAN 

StCTlUNS 

NAMb 

Slit 

ATTN!  tit/rtS 

JCOOtl 

Oul lb2 

300 

KH  . 1 . CON . LCL 

SPOATA 

0000  !4 

10 

KM .O.CUN.LCL 

$ 1 OAT  A 

000472 

1 b 7 

Km .O.CON.lCL 

SVAKS 

000022 

•i 

Km , O.CUN.LCL 

STtMPS 

000002 

1 

Km , O.CUN.LCL 

CoK  10 

0 1 o J 74 

3 710 

Km .D.OVK.UBL 

COTHH 

000110 

36 

KM .O.OVK.GbL 

CPLUT 

00  4b  70 

1212 

KM , 0 , UVK , GbL 

C1MPC 

001064 

262 

KM .O.UVK.GbL 

TOTAL  SPACt  ALLUCATCO  = 026274  b726 


PAUL  2 


L1ST.LST/L1:  1/-SP=PLUTN 


389 


b OK  THAN  l*-PLUS  X02-04^,  Il:2*:Jb  2v-NAK-7b  PAot  1 

Mi.NH.ffN  / 1 K : SLUC KS/ »K 


OOo  I 


0002 
000  J 
0004 
000b 


.'»/ 

^ 000b 


ooo  j 

000b 


oooo 

OOJO 

oon 


0012 

001  J 
0014 
001b 
00  1 b 
0017 
001b 
0010 
0020 

0021 

0022 

002  J 
0024 
002b 

002b 

002  7 
002b 
0020 
OOJO 
Oo  J1 
00J2 
00  JJ 
00  J4 


sOSKOOTlNt  Hb.Sh 

c 

C • 

C UtNb.  RATION  Ob  AKblTKAK)  HtSHtS  * 

0 • 

C 

K1TL  LIST , Lb NO, lb  LA , L*A 1 T 
INCLUDt  ' CONNiJN.F  l N ’ 

KlAL  UAH  t 1 , LAHl2 

CUHHON  /CuKID/  A(70)  ,Y  170)  , XO l 70 ) .10(70)  , i>PH  l 70  ) , 

. XNPH1 70) , INpHl 7o) , 

. XXl70).lMU7Q>,AH70),DXXbVt70),l7YTbH70),UA»bVl70), 

. AH ( 707  . HHO1  707  , LAHt  H 70 7 , LAHt  2 ( 70 7 ,COHFSt  JO) , TANPhl l 70 ) , 

. I ANPS1 1 70) , NANI  70 , 10) , NAH( 7o, J) 

CONNON  / CU 1 hK / OT.NlltK.AKAl  , ON A V , 1 T tK . NN A A , HH A A , 1 H A A , T 1 Hb  , 

. ZtfKU,  NPlS:  1 ,LCuNT , lbLAO, MOT. NbUF , NPL.NPLOl , 1TPLI 10) , 

. SCALfcA , SCALD  •, 

COHHON  /CPLUTb  bUb  1 l 202  ) , bob  2 l 202  7 , hOb  3l  2Ui  ) 

CUHHON  /C1HPC/  1HPU0)  , lMlH  10)  . 1FL1  10)  , lNZllo^  , lbOl  10)  , 

. IFKUO)  ,N2Nl  10)  ,N  JH(IO)  ,HNN(  10)  ,N4H(  10)  , IULC1 10)i*  9 

. STNL  , btNU  ,STSM  , XHU  , TUL  ,bDT  , bDTl  ,CUM  , CUN2  , lb  HA 
. FN  ( 1 0 7 , FS  l 1 0 7 , OKM  1 0 7 . UKS  ( 1 0 ) , DNS1  ( 1 0 ) , XNC l 1 O) , » N . : 2 0 7 , DN 

CUHHON  /CNICb./  NTINtS  , b AClUK  , lbUONlH  1 00) 

01 Ht NS  I UN  LIST l 20, 20  7 ,LLN0 l 20) , 1FLA  < 20) , L«A1TI 20) , 

. HtHPA120),LTtNPtH20) 

DATA  NT lHLS.b  ACTOR  / 10 , 0 .b/ 

C 

C-----KtAU  NOHbtH  Ob'  bUOCNb  ANO  bCALt  FOR  PLOTTINo 
Kb.  AO  1000,  NbUOCK 
PRINT  2000,  NbUOCK 
KL  AD  1001,  SC  ALL 
PRINT  2001,  SCAUt 
SCALLA  = SCALt 
SCALD  = SCALb 
HHAX  ^ 0 
14  H A X =0 
1 H A X * 10 
C 

UO  100  NBs 1 , NbLOCK 

C Kb  AD  NUHbbK  Ob  CURNtRS  ANO  THtlR  CDUKD 1 NATFS 

KL AO  1000,  NCUKN 
PK1N  r 2002  , NCUKN 

KLAO  1002,  1L1SU  1 , 1 ) ,X(1  ) ,U1)  ,1*1  ,NCORN7 
PRINT  200b,  1 1 ,HSTl  1 , 1 ) ,X(  I ) , i ( 1 ) , 1 = 1 ,NCOKN7 

C INITIALIZATIONS 

NH AX  * NHAXbNCOKN 
N N =0 
00  b 1*2,20 
1 F U A 1 1 7 = 0 
LLNCll)  * 0 
LNAlT l 1 ) = 0 
00  b J*1 , 20 
b L1STU  , J 7 * 0 

IF  INCORN  . UT , J)  CO  TO  10 

C--- CASL  Ob  TKIANCUUAK  bLOCK 

HHAX  * H N A A ♦ 1 


00  Jb 


FORTRAN  1V-PLUS  V02-04G  11:29:38  29“MAR“7b  PAGfc  2 

MESH.Fl'N  / TR  : HLUCKS/ WR 

003b  AM  ( MMAX  ) = J. 

0037  OU  fa  1=1,3 

003b  fa  NAM(MMAX,I)  = LIST (1,17 

0039  gu  ru  100 


0040 

0041 

0042 

0043 

c 

10 

c 

---FORM  INITIAL  LIST 

IFLA(l)  = 1 

NL15T  = 1 

NSPLI  = 1 

LENG ( NSPLT  7 = NCOKN 

■■-FIND  THE  TWO  CLOSEST  NUN  CONTIGUOUS  CORNERS- 

0044 

22 

U1SM  = 1.E10 

004b 

rtCL  = LENG(NSPLT) 

004b 

NL1M  = nCL-2 

0047 

DU  30  IX=1,NL1M 

0048 

11  = IX  + 2 

004V 

IP  = L1ST(NSPLT, IX) 

OObO 

DU  30  JX=1I,NCL 

00b  1 

JP  = LIST (NSPLI  , JX) 

00b2 

DISTS  = IX(IP)“X(JP7)**24(T(IP7“T(JP)7**2 

0053 

PH  1 NT  3010, IP, JP, DISTS, D1SM 

00b4 

3010 

FORMAT! ' 1P,JP,D1STS,DISM'2I3, 1P2E12.4) 

OObb 

IF  (DISTS  .GT.  D1SM)  GO  TO  30 

OObb 

IF  (IX  .EO.l  .AND.  JX  .EO.  NCL ) GO  TO  30 

0057 

1 M = IX 

0058 

JM  = JX 

0059 

PH1NT  3000 , I M , JM 

OObO 

3000 

FORMAT! ' 1M,JM'2I3) 

c 

- — FUHM  FIRST  NEW  LIST 

OObl 

DU  40  1=1, IM 

0062 

40 

LTEMPA(I)  = L1ST(NSPLT,I) 

00b3 

DU  50  I=JM , NCL 

0064 

II  = I+IM-JM+1 

0065 

50 

LTEMPA ( I I ) = LIST ( NSPLT , 1 ) 

006b 

LA  = IM+NCL-JM+1 

0067 

DU  5b  I =L A , 19 

0068 

5b 

LTEMPA! 1+1 ) = 0 

0069 

PRINT  3001 , (LTEMPA( I ) , 1=1 ,6) 

0070 

3001 

FORMAT! * LIST  *613) 

c 

■“•CHECK  AREA 

00  71 

AR  = 0 

0072 

DO  bb  1=2, LA 

0073 

N 1 = LTEMPA(I-l) 

0074 

N2  = LTEMPA(I) 

0075 

bb 

AR  = AH+(I(N1)+X(N27)*(X(N17“X(N27) 

007b 

N 1 = LTEMPA ( LA ) 

0077 

N2  = LTEMPA ( 1 ) 

0078 

AR  = AR4U(Nl)tKN27)*(X(Nl)-X(h2)) 
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